home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Interfaces & Libraries / Interfaces / CIncludes / QuickTimeComponents.h < prev    next >
Encoding:
C/C++ Source or Header  |  1995-07-06  |  138.4 KB  |  3,038 lines  |  [TEXT/MPS ]

  1. /*
  2.      File:        QuickTimeComponents.h
  3.  
  4.      Contains:    QuickTime Interfaces.
  5.  
  6.      Version:    Technology:    QuickTime 2.0
  7.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. */
  19.  
  20. #ifndef __QUICKTIMECOMPONENTS__
  21. #define __QUICKTIMECOMPONENTS__
  22.  
  23.  
  24. #ifndef __COMPONENTS__
  25. #include <Components.h>
  26. #endif
  27. /*    #include <Types.h>                                            */
  28. /*        #include <ConditionalMacros.h>                            */
  29. /*    #include <MixedMode.h>                                        */
  30.  
  31. #ifndef __IMAGECOMPRESSION__
  32. #include <ImageCompression.h>
  33. #endif
  34. /*    #include <Quickdraw.h>                                        */
  35. /*        #include <QuickdrawText.h>                                */
  36. /*    #include <QDOffscreen.h>                                    */
  37. /*        #include <Errors.h>                                        */
  38. /*    #include <Windows.h>                                        */
  39. /*        #include <Memory.h>                                        */
  40. /*        #include <Events.h>                                        */
  41. /*            #include <OSUtils.h>                                */
  42. /*        #include <Controls.h>                                    */
  43. /*            #include <Menus.h>                                    */
  44. /*    #include <StandardFile.h>                                    */
  45. /*        #include <Dialogs.h>                                    */
  46. /*            #include <TextEdit.h>                                */
  47. /*        #include <Files.h>                                        */
  48. /*            #include <Finder.h>                                    */
  49.  
  50. #ifndef __MOVIES__
  51. #include <Movies.h>
  52. #endif
  53. /*    #include <Aliases.h>                                        */
  54. /*        #include <AppleTalk.h>                                    */
  55.  
  56. #ifndef __QUICKDRAW__
  57. #include <Quickdraw.h>
  58. #endif
  59.  
  60. #ifndef __VIDEO__
  61. #include <Video.h>
  62. #endif
  63.  
  64. #ifndef __MEMORY__
  65. #include <Memory.h>
  66. #endif
  67.  
  68. #ifdef __cplusplus
  69. extern "C" {
  70. #endif
  71.  
  72. #if PRAGMA_ALIGN_SUPPORTED
  73. #pragma options align=mac68k
  74. #endif
  75.  
  76. #if PRAGMA_IMPORT_SUPPORTED
  77. #pragma import on
  78. #endif
  79.  
  80.  
  81. enum {
  82.     clockComponentType            = 'clok',
  83.     systemTickClock                = 'tick',                        /* subtype: 60ths since boot        */
  84.     systemSecondClock            = 'seco',                        /* subtype: seconds since 1904        */
  85.     systemMillisecondClock        = 'mill',                        /* subtype: 1000ths since boot        */
  86.     systemMicrosecondClock        = 'micr'
  87. };
  88.  
  89. enum {
  90.     kClockRateIsLinear            = 1,
  91.     kClockImplementsCallBacks    = 2
  92. };
  93.  
  94. #if OLDROUTINENAMES
  95. #define ClockGetTime(aClock, out) GetClockTime(aClock, out)
  96. #endif
  97. /** These are Clock procedures **/
  98. extern pascal ComponentResult ClockGetTime(ComponentInstance aClock, TimeRecord *out)
  99.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1, 0x7000, 0xA82A);
  100. extern pascal QTCallBack ClockNewCallBack(ComponentInstance aClock, TimeBase tb, short callBackType)
  101.  FIVEWORDINLINE(0x2F3C, 0x6, 0x2, 0x7000, 0xA82A);
  102. extern pascal ComponentResult ClockDisposeCallBack(ComponentInstance aClock, QTCallBack cb)
  103.  FIVEWORDINLINE(0x2F3C, 0x4, 0x3, 0x7000, 0xA82A);
  104. extern pascal ComponentResult ClockCallMeWhen(ComponentInstance aClock, QTCallBack cb, long param1, long param2, long param3)
  105.  FIVEWORDINLINE(0x2F3C, 0x10, 0x4, 0x7000, 0xA82A);
  106. extern pascal ComponentResult ClockCancelCallBack(ComponentInstance aClock, QTCallBack cb)
  107.  FIVEWORDINLINE(0x2F3C, 0x4, 0x5, 0x7000, 0xA82A);
  108. extern pascal ComponentResult ClockRateChanged(ComponentInstance aClock, QTCallBack cb)
  109.  FIVEWORDINLINE(0x2F3C, 0x4, 0x6, 0x7000, 0xA82A);
  110. extern pascal ComponentResult ClockTimeChanged(ComponentInstance aClock, QTCallBack cb)
  111.  FIVEWORDINLINE(0x2F3C, 0x4, 0x7, 0x7000, 0xA82A);
  112. extern pascal ComponentResult ClockSetTimeBase(ComponentInstance aClock, TimeBase tb)
  113.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8, 0x7000, 0xA82A);
  114. extern pascal ComponentResult ClockStartStopChanged(ComponentInstance aClock, QTCallBack cb, Boolean startChanged, Boolean stopChanged)
  115.  FIVEWORDINLINE(0x2F3C, 0x8, 0x9, 0x7000, 0xA82A);
  116. extern pascal ComponentResult ClockGetRate(ComponentInstance aClock, Fixed *rate)
  117.  FIVEWORDINLINE(0x2F3C, 0x4, 0xA, 0x7000, 0xA82A);
  118.  
  119. enum {
  120.     kClockGetTimeSelect            = 0x1,
  121.     kClockNewCallBackSelect        = 0x2,
  122.     kClockDisposeCallBackSelect    = 0x3,
  123.     kClockCallMeWhenSelect        = 0x4,
  124.     kClockCancelCallBackSelect    = 0x5,
  125.     kClockRateChangedSelect        = 0x6,
  126.     kClockTimeChangedSelect        = 0x7,
  127.     kClockSetTimeBaseSelect        = 0x8,
  128.     kClockStartStopChangedSelect = 0x9,
  129.     kClockGetRateSelect            = 0xA
  130. };
  131.  
  132. /*
  133.     General Sequence Grab stuff
  134. */
  135. typedef ComponentInstance SeqGrabComponent;
  136.  
  137. typedef ComponentInstance SGChannel;
  138.  
  139.  
  140. enum {
  141.     SeqGrabComponentType        = 'barg',
  142.     SeqGrabChannelType            = 'sgch',
  143.     SeqGrabPanelType            = 'sgpn',
  144.     SeqGrabCompressionPanelType    = 'comp',
  145.     SeqGrabSourcePanelType        = 'sour'
  146. };
  147.  
  148. enum {
  149.     seqGrabToDisk                = 1,
  150.     seqGrabToMemory                = 2,
  151.     seqGrabDontUseTempMemory    = 4,
  152.     seqGrabAppendToFile            = 8,
  153.     seqGrabDontAddMovieResource    = 16,
  154.     seqGrabDontMakeMovie        = 32,
  155.     seqGrabPreExtendFile        = 64,
  156.     seqGrabDataProcIsInterruptSafe = 128,
  157.     seqGrabDataProcDoesOverlappingReads = 256
  158. };
  159.  
  160. typedef unsigned long SeqGrabDataOutputEnum;
  161.  
  162.  
  163. enum {
  164.     seqGrabRecord                = 1,
  165.     seqGrabPreview                = 2,
  166.     seqGrabPlayDuringRecord        = 4
  167. };
  168.  
  169. typedef unsigned long SeqGrabUsageEnum;
  170.  
  171.  
  172. enum {
  173.     seqGrabHasBounds            = 1,
  174.     seqGrabHasVolume            = 2,
  175.     seqGrabHasDiscreteSamples    = 4
  176. };
  177.  
  178. typedef unsigned long SeqGrabChannelInfoEnum;
  179.  
  180. struct SeqGrabFrameInfo {
  181.     long                            frameOffset;
  182.     long                            frameTime;
  183.     long                            frameSize;
  184.     SGChannel                        frameChannel;
  185.     long                            frameRefCon;
  186. };
  187. typedef struct SeqGrabFrameInfo SeqGrabFrameInfo, *SeqGrabFrameInfoPtr;
  188.  
  189.  
  190. enum {
  191.     grabPictOffScreen            = 1,
  192.     grabPictIgnoreClip            = 2,
  193.     grabPictCurrentImage        = 4
  194. };
  195.  
  196. enum {
  197.     sgFlagControlledGrab        = (1 << 0)
  198. };
  199.  
  200. typedef pascal OSErr (*SGDataProcPtr)(SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType, long refCon);
  201.  
  202. #if GENERATINGCFM
  203. typedef UniversalProcPtr SGDataUPP;
  204. #else
  205. typedef SGDataProcPtr SGDataUPP;
  206. #endif
  207.  
  208. struct SGDeviceName {
  209.     Str63                            name;
  210.     Handle                            icon;
  211.     long                            flags;
  212.     long                            refCon;
  213.     long                            reserved;                    /* zero*/
  214. };
  215. typedef struct SGDeviceName SGDeviceName;
  216.  
  217.  
  218. enum {
  219.     sgDeviceNameFlagDeviceUnavailable = (1 << 0)
  220. };
  221.  
  222. struct SGDeviceListRecord {
  223.     short                            count;
  224.     short                            selectedIndex;
  225.     long                            reserved;                    /* zero*/
  226.     SGDeviceName                    entry[1];
  227. };
  228. typedef struct SGDeviceListRecord SGDeviceListRecord, *SGDeviceListPtr, **SGDeviceList;
  229.  
  230.  
  231. enum {
  232.     sgDeviceListWithIcons        = (1 << 0),
  233.     sgDeviceListDontCheckAvailability = (1 << 1)
  234. };
  235.  
  236. enum {
  237.     seqGrabWriteAppend,
  238.     seqGrabWriteReserve,
  239.     seqGrabWriteFill
  240. };
  241.  
  242. enum {
  243.     seqGrabUnpause                = 0,
  244.     seqGrabPause                = 1,
  245.     seqGrabPauseForMenu            = 3
  246. };
  247.  
  248. enum {
  249.     channelFlagDontOpenResFile    = 2,
  250.     channelFlagHasDependency    = 4
  251. };
  252.  
  253. typedef pascal Boolean (*SGModalFilterProcPtr)(DialogPtr theDialog, EventRecord *theEvent, short *itemHit, long refCon);
  254.  
  255. #if GENERATINGCFM
  256. typedef UniversalProcPtr SGModalFilterUPP;
  257. #else
  258. typedef SGModalFilterProcPtr SGModalFilterUPP;
  259. #endif
  260.  
  261. enum {
  262.     sgPanelFlagForPanel            = 1
  263. };
  264.  
  265. struct SGOutputRecord {
  266.     long                            data[1];
  267. };
  268. typedef struct SGOutputRecord SGOutputRecord, *SGOutput;
  269.  
  270.  
  271. enum {
  272.     channelPlayNormal            = 0,
  273.     channelPlayFast                = 1,
  274.     channelPlayHighQuality        = 2,
  275.     channelPlayAllData            = 4
  276. };
  277.  
  278. extern pascal ComponentResult SGInitialize(SeqGrabComponent s)
  279.  FIVEWORDINLINE(0x2F3C, 0, 0x1, 0x7000, 0xA82A);
  280. extern pascal ComponentResult SGSetDataOutput(SeqGrabComponent s, const FSSpec *movieFile, long whereFlags)
  281.  FIVEWORDINLINE(0x2F3C, 0x8, 0x2, 0x7000, 0xA82A);
  282. extern pascal ComponentResult SGGetDataOutput(SeqGrabComponent s, FSSpec *movieFile, long *whereFlags)
  283.  FIVEWORDINLINE(0x2F3C, 0x8, 0x3, 0x7000, 0xA82A);
  284. extern pascal ComponentResult SGSetGWorld(SeqGrabComponent s, CGrafPtr gp, GDHandle gd)
  285.  FIVEWORDINLINE(0x2F3C, 0x8, 0x4, 0x7000, 0xA82A);
  286. extern pascal ComponentResult SGGetGWorld(SeqGrabComponent s, CGrafPtr *gp, GDHandle *gd)
  287.  FIVEWORDINLINE(0x2F3C, 0x8, 0x5, 0x7000, 0xA82A);
  288. extern pascal ComponentResult SGNewChannel(SeqGrabComponent s, OSType channelType, SGChannel *ref)
  289.  FIVEWORDINLINE(0x2F3C, 0x8, 0x6, 0x7000, 0xA82A);
  290. extern pascal ComponentResult SGDisposeChannel(SeqGrabComponent s, SGChannel c)
  291.  FIVEWORDINLINE(0x2F3C, 0x4, 0x7, 0x7000, 0xA82A);
  292. extern pascal ComponentResult SGStartPreview(SeqGrabComponent s)
  293.  FIVEWORDINLINE(0x2F3C, 0, 0x10, 0x7000, 0xA82A);
  294. extern pascal ComponentResult SGStartRecord(SeqGrabComponent s)
  295.  FIVEWORDINLINE(0x2F3C, 0, 0x11, 0x7000, 0xA82A);
  296. extern pascal ComponentResult SGIdle(SeqGrabComponent s)
  297.  FIVEWORDINLINE(0x2F3C, 0, 0x12, 0x7000, 0xA82A);
  298. extern pascal ComponentResult SGStop(SeqGrabComponent s)
  299.  FIVEWORDINLINE(0x2F3C, 0, 0x13, 0x7000, 0xA82A);
  300. extern pascal ComponentResult SGPause(SeqGrabComponent s, Byte pause)
  301.  FIVEWORDINLINE(0x2F3C, 0x2, 0x14, 0x7000, 0xA82A);
  302. extern pascal ComponentResult SGPrepare(SeqGrabComponent s, Boolean prepareForPreview, Boolean prepareForRecord)
  303.  FIVEWORDINLINE(0x2F3C, 0x4, 0x15, 0x7000, 0xA82A);
  304. extern pascal ComponentResult SGRelease(SeqGrabComponent s)
  305.  FIVEWORDINLINE(0x2F3C, 0, 0x16, 0x7000, 0xA82A);
  306. extern pascal Movie SGGetMovie(SeqGrabComponent s)
  307.  FIVEWORDINLINE(0x2F3C, 0, 0x17, 0x7000, 0xA82A);
  308. extern pascal ComponentResult SGSetMaximumRecordTime(SeqGrabComponent s, unsigned long ticks)
  309.  FIVEWORDINLINE(0x2F3C, 0x4, 0x18, 0x7000, 0xA82A);
  310. extern pascal ComponentResult SGGetMaximumRecordTime(SeqGrabComponent s, unsigned long *ticks)
  311.  FIVEWORDINLINE(0x2F3C, 0x4, 0x19, 0x7000, 0xA82A);
  312. extern pascal ComponentResult SGGetStorageSpaceRemaining(SeqGrabComponent s, unsigned long *bytes)
  313.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1A, 0x7000, 0xA82A);
  314. extern pascal ComponentResult SGGetTimeRemaining(SeqGrabComponent s, long *ticksLeft)
  315.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1B, 0x7000, 0xA82A);
  316. extern pascal ComponentResult SGGrabPict(SeqGrabComponent s, PicHandle *p, const Rect *bounds, short offscreenDepth, long grabPictFlags)
  317.  FIVEWORDINLINE(0x2F3C, 0xE, 0x1C, 0x7000, 0xA82A);
  318. extern pascal ComponentResult SGGetLastMovieResID(SeqGrabComponent s, short *resID)
  319.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1D, 0x7000, 0xA82A);
  320. extern pascal ComponentResult SGSetFlags(SeqGrabComponent s, long sgFlags)
  321.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1E, 0x7000, 0xA82A);
  322. extern pascal ComponentResult SGGetFlags(SeqGrabComponent s, long *sgFlags)
  323.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1F, 0x7000, 0xA82A);
  324. extern pascal ComponentResult SGSetDataProc(SeqGrabComponent s, SGDataUPP proc, long refCon)
  325.  FIVEWORDINLINE(0x2F3C, 0x8, 0x20, 0x7000, 0xA82A);
  326. extern pascal ComponentResult SGNewChannelFromComponent(SeqGrabComponent s, SGChannel *newChannel, Component sgChannelComponent)
  327.  FIVEWORDINLINE(0x2F3C, 0x8, 0x21, 0x7000, 0xA82A);
  328. extern pascal ComponentResult SGDisposeDeviceList(SeqGrabComponent s, SGDeviceList list)
  329.  FIVEWORDINLINE(0x2F3C, 0x4, 0x22, 0x7000, 0xA82A);
  330. extern pascal ComponentResult SGAppendDeviceListToMenu(SeqGrabComponent s, SGDeviceList list, MenuHandle mh)
  331.  FIVEWORDINLINE(0x2F3C, 0x8, 0x23, 0x7000, 0xA82A);
  332. extern pascal ComponentResult SGSetSettings(SeqGrabComponent s, UserData ud, long flags)
  333.  FIVEWORDINLINE(0x2F3C, 0x8, 0x24, 0x7000, 0xA82A);
  334. extern pascal ComponentResult SGGetSettings(SeqGrabComponent s, UserData *ud, long flags)
  335.  FIVEWORDINLINE(0x2F3C, 0x8, 0x25, 0x7000, 0xA82A);
  336. extern pascal ComponentResult SGGetIndChannel(SeqGrabComponent s, short index, SGChannel *ref, OSType *chanType)
  337.  FIVEWORDINLINE(0x2F3C, 0xA, 0x26, 0x7000, 0xA82A);
  338. extern pascal ComponentResult SGUpdate(SeqGrabComponent s, RgnHandle updateRgn)
  339.  FIVEWORDINLINE(0x2F3C, 0x4, 0x27, 0x7000, 0xA82A);
  340. extern pascal ComponentResult SGGetPause(SeqGrabComponent s, Byte *paused)
  341.  FIVEWORDINLINE(0x2F3C, 0x4, 0x28, 0x7000, 0xA82A);
  342. extern pascal ComponentResult SGSettingsDialog(SeqGrabComponent s, SGChannel c, short numPanels, Component *panelList, long flags, SGModalFilterUPP proc, long procRefNum)
  343.  FIVEWORDINLINE(0x2F3C, 0x16, 0x29, 0x7000, 0xA82A);
  344. extern pascal ComponentResult SGGetAlignmentProc(SeqGrabComponent s, ICMAlignmentProcRecordPtr alignmentProc)
  345.  FIVEWORDINLINE(0x2F3C, 0x4, 0x2A, 0x7000, 0xA82A);
  346. extern pascal ComponentResult SGSetChannelSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  347.  FIVEWORDINLINE(0x2F3C, 0xC, 0x2B, 0x7000, 0xA82A);
  348. extern pascal ComponentResult SGGetChannelSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  349.  FIVEWORDINLINE(0x2F3C, 0xC, 0x2C, 0x7000, 0xA82A);
  350. extern pascal ComponentResult SGGetMode(SeqGrabComponent s, Boolean *previewMode, Boolean *recordMode)
  351.  FIVEWORDINLINE(0x2F3C, 0x8, 0x2D, 0x7000, 0xA82A);
  352. extern pascal ComponentResult SGSetDataRef(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags)
  353.  FIVEWORDINLINE(0x2F3C, 0xC, 0x2E, 0x7000, 0xA82A);
  354. extern pascal ComponentResult SGGetDataRef(SeqGrabComponent s, Handle *dataRef, OSType *dataRefType, long *whereFlags)
  355.  FIVEWORDINLINE(0x2F3C, 0xC, 0x2F, 0x7000, 0xA82A);
  356. extern pascal ComponentResult SGNewOutput(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags, SGOutput *output)
  357.  FIVEWORDINLINE(0x2F3C, 0x10, 0x30, 0x7000, 0xA82A);
  358. extern pascal ComponentResult SGDisposeOutput(SeqGrabComponent s, SGOutput output)
  359.  FIVEWORDINLINE(0x2F3C, 0x4, 0x31, 0x7000, 0xA82A);
  360. extern pascal ComponentResult SGSetOutputFlags(SeqGrabComponent s, SGOutput output, long whereFlags)
  361.  FIVEWORDINLINE(0x2F3C, 0x8, 0x32, 0x7000, 0xA82A);
  362. extern pascal ComponentResult SGSetChannelOutput(SeqGrabComponent s, SGChannel c, SGOutput output)
  363.  FIVEWORDINLINE(0x2F3C, 0x8, 0x33, 0x7000, 0xA82A);
  364. extern pascal ComponentResult SGGetDataOutputStorageSpaceRemaining(SeqGrabComponent s, SGOutput output, unsigned long *space)
  365.  FIVEWORDINLINE(0x2F3C, 0x8, 0x34, 0x7000, 0xA82A);
  366. /*
  367.     calls from Channel to seqGrab
  368. */
  369. extern pascal ComponentResult SGWriteMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset)
  370.  FIVEWORDINLINE(0x2F3C, 0x10, 0x100, 0x7000, 0xA82A);
  371. extern pascal ComponentResult SGAddFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo)
  372.  FIVEWORDINLINE(0x2F3C, 0x4, 0x101, 0x7000, 0xA82A);
  373. extern pascal ComponentResult SGGetNextFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  374.  FIVEWORDINLINE(0x2F3C, 0xC, 0x102, 0x7000, 0xA82A);
  375. extern pascal ComponentResult SGGetTimeBase(SeqGrabComponent s, TimeBase *tb)
  376.  FIVEWORDINLINE(0x2F3C, 0x4, 0x103, 0x7000, 0xA82A);
  377. extern pascal ComponentResult SGSortDeviceList(SeqGrabComponent s, SGDeviceList list)
  378.  FIVEWORDINLINE(0x2F3C, 0x4, 0x104, 0x7000, 0xA82A);
  379. extern pascal ComponentResult SGAddMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType)
  380.  FIVEWORDINLINE(0x2F3C, 0x1A, 0x105, 0x7000, 0xA82A);
  381. extern pascal ComponentResult SGChangedSource(SeqGrabComponent s, SGChannel c)
  382.  FIVEWORDINLINE(0x2F3C, 0x4, 0x106, 0x7000, 0xA82A);
  383. /*** Sequence Grab CHANNEL Component Stuff ***/
  384. extern pascal ComponentResult SGSetChannelUsage(SGChannel c, long usage)
  385.  FIVEWORDINLINE(0x2F3C, 0x4, 0x80, 0x7000, 0xA82A);
  386. extern pascal ComponentResult SGGetChannelUsage(SGChannel c, long *usage)
  387.  FIVEWORDINLINE(0x2F3C, 0x4, 0x81, 0x7000, 0xA82A);
  388. extern pascal ComponentResult SGSetChannelBounds(SGChannel c, const Rect *bounds)
  389.  FIVEWORDINLINE(0x2F3C, 0x4, 0x82, 0x7000, 0xA82A);
  390. extern pascal ComponentResult SGGetChannelBounds(SGChannel c, Rect *bounds)
  391.  FIVEWORDINLINE(0x2F3C, 0x4, 0x83, 0x7000, 0xA82A);
  392. extern pascal ComponentResult SGSetChannelVolume(SGChannel c, short volume)
  393.  FIVEWORDINLINE(0x2F3C, 0x2, 0x84, 0x7000, 0xA82A);
  394. extern pascal ComponentResult SGGetChannelVolume(SGChannel c, short *volume)
  395.  FIVEWORDINLINE(0x2F3C, 0x4, 0x85, 0x7000, 0xA82A);
  396. extern pascal ComponentResult SGGetChannelInfo(SGChannel c, long *channelInfo)
  397.  FIVEWORDINLINE(0x2F3C, 0x4, 0x86, 0x7000, 0xA82A);
  398. extern pascal ComponentResult SGSetChannelPlayFlags(SGChannel c, long playFlags)
  399.  FIVEWORDINLINE(0x2F3C, 0x4, 0x87, 0x7000, 0xA82A);
  400. extern pascal ComponentResult SGGetChannelPlayFlags(SGChannel c, long *playFlags)
  401.  FIVEWORDINLINE(0x2F3C, 0x4, 0x88, 0x7000, 0xA82A);
  402. extern pascal ComponentResult SGSetChannelMaxFrames(SGChannel c, long frameCount)
  403.  FIVEWORDINLINE(0x2F3C, 0x4, 0x89, 0x7000, 0xA82A);
  404. extern pascal ComponentResult SGGetChannelMaxFrames(SGChannel c, long *frameCount)
  405.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8A, 0x7000, 0xA82A);
  406. extern pascal ComponentResult SGSetChannelRefCon(SGChannel c, long refCon)
  407.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8B, 0x7000, 0xA82A);
  408. extern pascal ComponentResult SGSetChannelClip(SGChannel c, RgnHandle theClip)
  409.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8C, 0x7000, 0xA82A);
  410. extern pascal ComponentResult SGGetChannelClip(SGChannel c, RgnHandle *theClip)
  411.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8D, 0x7000, 0xA82A);
  412. extern pascal ComponentResult SGGetChannelSampleDescription(SGChannel c, Handle sampleDesc)
  413.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8E, 0x7000, 0xA82A);
  414. extern pascal ComponentResult SGGetChannelDeviceList(SGChannel c, long selectionFlags, SGDeviceList *list)
  415.  FIVEWORDINLINE(0x2F3C, 0x8, 0x8F, 0x7000, 0xA82A);
  416. extern pascal ComponentResult SGSetChannelDevice(SGChannel c, StringPtr name)
  417.  FIVEWORDINLINE(0x2F3C, 0x4, 0x90, 0x7000, 0xA82A);
  418. extern pascal ComponentResult SGSetChannelMatrix(SGChannel c, const MatrixRecord *m)
  419.  FIVEWORDINLINE(0x2F3C, 0x4, 0x91, 0x7000, 0xA82A);
  420. extern pascal ComponentResult SGGetChannelMatrix(SGChannel c, MatrixRecord *m)
  421.  FIVEWORDINLINE(0x2F3C, 0x4, 0x92, 0x7000, 0xA82A);
  422. extern pascal ComponentResult SGGetChannelTimeScale(SGChannel c, TimeScale *scale)
  423.  FIVEWORDINLINE(0x2F3C, 0x4, 0x93, 0x7000, 0xA82A);
  424. extern pascal ComponentResult SGChannelPutPicture(SGChannel c)
  425.  FIVEWORDINLINE(0x2F3C, 0, 0x94, 0x7000, 0xA82A);
  426. extern pascal ComponentResult SGChannelSetRequestedDataRate(SGChannel c, long bytesPerSecond)
  427.  FIVEWORDINLINE(0x2F3C, 0x4, 0x95, 0x7000, 0xA82A);
  428. extern pascal ComponentResult SGChannelGetRequestedDataRate(SGChannel c, long *bytesPerSecond)
  429.  FIVEWORDINLINE(0x2F3C, 0x4, 0x96, 0x7000, 0xA82A);
  430. extern pascal ComponentResult SGChannelSetDataSourceName(SGChannel c, ConstStr255Param name, ScriptCode scriptTag)
  431.  FIVEWORDINLINE(0x2F3C, 0x6, 0x97, 0x7000, 0xA82A);
  432. extern pascal ComponentResult SGChannelGetDataSourceName(SGChannel c, Str255 name, ScriptCode *scriptTag)
  433.  FIVEWORDINLINE(0x2F3C, 0x8, 0x98, 0x7000, 0xA82A);
  434. /*
  435.     calls from seqGrab to Channel
  436. */
  437. extern pascal ComponentResult SGInitChannel(SGChannel c, SeqGrabComponent owner)
  438.  FIVEWORDINLINE(0x2F3C, 0x4, 0x180, 0x7000, 0xA82A);
  439. extern pascal ComponentResult SGWriteSamples(SGChannel c, Movie m, AliasHandle theFile)
  440.  FIVEWORDINLINE(0x2F3C, 0x8, 0x181, 0x7000, 0xA82A);
  441. extern pascal ComponentResult SGGetDataRate(SGChannel c, long *bytesPerSecond)
  442.  FIVEWORDINLINE(0x2F3C, 0x4, 0x182, 0x7000, 0xA82A);
  443. extern pascal ComponentResult SGAlignChannelRect(SGChannel c, Rect *r)
  444.  FIVEWORDINLINE(0x2F3C, 0x4, 0x183, 0x7000, 0xA82A);
  445. /*
  446.     Dorky dialog panel calls
  447. */
  448. extern pascal ComponentResult SGPanelGetDitl(SeqGrabComponent s, Handle *ditl)
  449.  FIVEWORDINLINE(0x2F3C, 0x4, 0x200, 0x7000, 0xA82A);
  450. extern pascal ComponentResult SGPanelGetTitle(SeqGrabComponent s, Str255 title)
  451.  FIVEWORDINLINE(0x2F3C, 0x4, 0x201, 0x7000, 0xA82A);
  452. extern pascal ComponentResult SGPanelCanRun(SeqGrabComponent s, SGChannel c)
  453.  FIVEWORDINLINE(0x2F3C, 0x4, 0x202, 0x7000, 0xA82A);
  454. extern pascal ComponentResult SGPanelInstall(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  455.  FIVEWORDINLINE(0x2F3C, 0xA, 0x203, 0x7000, 0xA82A);
  456. extern pascal ComponentResult SGPanelEvent(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, EventRecord *theEvent, short *itemHit, Boolean *handled)
  457.  FIVEWORDINLINE(0x2F3C, 0x16, 0x204, 0x7000, 0xA82A);
  458. extern pascal ComponentResult SGPanelItem(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, short itemNum)
  459.  FIVEWORDINLINE(0x2F3C, 0xC, 0x205, 0x7000, 0xA82A);
  460. extern pascal ComponentResult SGPanelRemove(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  461.  FIVEWORDINLINE(0x2F3C, 0xA, 0x206, 0x7000, 0xA82A);
  462. extern pascal ComponentResult SGPanelSetGrabber(SeqGrabComponent s, SeqGrabComponent sg)
  463.  FIVEWORDINLINE(0x2F3C, 0x4, 0x207, 0x7000, 0xA82A);
  464. extern pascal ComponentResult SGPanelSetResFile(SeqGrabComponent s, short resRef)
  465.  FIVEWORDINLINE(0x2F3C, 0x2, 0x208, 0x7000, 0xA82A);
  466. extern pascal ComponentResult SGPanelGetSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  467.  FIVEWORDINLINE(0x2F3C, 0xC, 0x209, 0x7000, 0xA82A);
  468. extern pascal ComponentResult SGPanelSetSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  469.  FIVEWORDINLINE(0x2F3C, 0xC, 0x20A, 0x7000, 0xA82A);
  470. extern pascal ComponentResult SGPanelValidateInput(SeqGrabComponent s, Boolean *ok)
  471.  FIVEWORDINLINE(0x2F3C, 0x4, 0x20B, 0x7000, 0xA82A);
  472. extern pascal ComponentResult SGPanelSetEventFilter(SeqGrabComponent s, SGModalFilterUPP proc, long refCon)
  473.  FIVEWORDINLINE(0x2F3C, 0x8, 0x20C, 0x7000, 0xA82A);
  474. /*** Sequence Grab VIDEO CHANNEL Component Stuff ***/
  475. /*
  476.     Video stuff
  477. */
  478. struct SGCompressInfo {
  479.     Ptr                                buffer;
  480.     unsigned long                    bufferSize;
  481.     UInt8                            similarity;
  482.     UInt8                            reserved;
  483. };
  484. typedef struct SGCompressInfo SGCompressInfo;
  485.  
  486. typedef pascal ComponentResult (*SGGrabProcPtr)(SGChannel c, short bufferNum, long refCon);
  487. typedef pascal ComponentResult (*SGGrabCompleteProcPtr)(SGChannel c, short bufferNum, Boolean *done, long refCon);
  488. typedef pascal ComponentResult (*SGDisplayProcPtr)(SGChannel c, short bufferNum, MatrixRecord *mp, RgnHandle clipRgn, long refCon);
  489. typedef pascal ComponentResult (*SGCompressProcPtr)(SGChannel c, short bufferNum, long refCon);
  490. typedef pascal ComponentResult (*SGCompressCompleteProcPtr)(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci, long refCon);
  491. typedef pascal ComponentResult (*SGAddFrameProcPtr)(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci, long refCon);
  492. typedef pascal ComponentResult (*SGTransferFrameProcPtr)(SGChannel c, short bufferNum, MatrixRecord *mp, RgnHandle clipRgn, long refCon);
  493. typedef pascal ComponentResult (*SGGrabCompressCompleteProcPtr)(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *t, long refCon);
  494. typedef pascal ComponentResult (*SGDisplayCompressProcPtr)(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn, long refCon);
  495.  
  496. #if GENERATINGCFM
  497. typedef UniversalProcPtr SGGrabUPP;
  498. typedef UniversalProcPtr SGGrabCompleteUPP;
  499. typedef UniversalProcPtr SGDisplayUPP;
  500. typedef UniversalProcPtr SGCompressUPP;
  501. typedef UniversalProcPtr SGCompressCompleteUPP;
  502. typedef UniversalProcPtr SGAddFrameUPP;
  503. typedef UniversalProcPtr SGTransferFrameUPP;
  504. typedef UniversalProcPtr SGGrabCompressCompleteUPP;
  505. typedef UniversalProcPtr SGDisplayCompressUPP;
  506. #else
  507. typedef SGGrabProcPtr SGGrabUPP;
  508. typedef SGGrabCompleteProcPtr SGGrabCompleteUPP;
  509. typedef SGDisplayProcPtr SGDisplayUPP;
  510. typedef SGCompressProcPtr SGCompressUPP;
  511. typedef SGCompressCompleteProcPtr SGCompressCompleteUPP;
  512. typedef SGAddFrameProcPtr SGAddFrameUPP;
  513. typedef SGTransferFrameProcPtr SGTransferFrameUPP;
  514. typedef SGGrabCompressCompleteProcPtr SGGrabCompressCompleteUPP;
  515. typedef SGDisplayCompressProcPtr SGDisplayCompressUPP;
  516. #endif
  517.  
  518. struct VideoBottles {
  519.     short                            procCount;
  520.     SGGrabUPP                        grabProc;
  521.     SGGrabCompleteUPP                grabCompleteProc;
  522.     SGDisplayUPP                    displayProc;
  523.     SGCompressUPP                    compressProc;
  524.     SGCompressCompleteUPP            compressCompleteProc;
  525.     SGAddFrameUPP                    addFrameProc;
  526.     SGTransferFrameUPP                transferFrameProc;
  527.     SGGrabCompressCompleteUPP        grabCompressCompleteProc;
  528.     SGDisplayCompressUPP            displayCompressProc;
  529. };
  530. typedef struct VideoBottles VideoBottles;
  531.  
  532. extern pascal ComponentResult SGGetSrcVideoBounds(SGChannel c, Rect *r)
  533.  FIVEWORDINLINE(0x2F3C, 0x4, 0x100, 0x7000, 0xA82A);
  534. extern pascal ComponentResult SGSetVideoRect(SGChannel c, const Rect *r)
  535.  FIVEWORDINLINE(0x2F3C, 0x4, 0x101, 0x7000, 0xA82A);
  536. extern pascal ComponentResult SGGetVideoRect(SGChannel c, Rect *r)
  537.  FIVEWORDINLINE(0x2F3C, 0x4, 0x102, 0x7000, 0xA82A);
  538. extern pascal ComponentResult SGGetVideoCompressorType(SGChannel c, OSType *compressorType)
  539.  FIVEWORDINLINE(0x2F3C, 0x4, 0x103, 0x7000, 0xA82A);
  540. extern pascal ComponentResult SGSetVideoCompressorType(SGChannel c, OSType compressorType)
  541.  FIVEWORDINLINE(0x2F3C, 0x4, 0x104, 0x7000, 0xA82A);
  542. extern pascal ComponentResult SGSetVideoCompressor(SGChannel c, short depth, CompressorComponent compressor, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  543.  FIVEWORDINLINE(0x2F3C, 0x12, 0x105, 0x7000, 0xA82A);
  544. extern pascal ComponentResult SGGetVideoCompressor(SGChannel c, short *depth, CompressorComponent *compressor, CodecQ *spatialQuality, CodecQ *temporalQuality, long *keyFrameRate)
  545.  FIVEWORDINLINE(0x2F3C, 0x14, 0x106, 0x7000, 0xA82A);
  546. extern pascal ComponentInstance SGGetVideoDigitizerComponent(SGChannel c)
  547.  FIVEWORDINLINE(0x2F3C, 0, 0x107, 0x7000, 0xA82A);
  548. extern pascal ComponentResult SGSetVideoDigitizerComponent(SGChannel c, ComponentInstance vdig)
  549.  FIVEWORDINLINE(0x2F3C, 0x4, 0x108, 0x7000, 0xA82A);
  550. extern pascal ComponentResult SGVideoDigitizerChanged(SGChannel c)
  551.  FIVEWORDINLINE(0x2F3C, 0, 0x109, 0x7000, 0xA82A);
  552. extern pascal ComponentResult SGSetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  553.  FIVEWORDINLINE(0x2F3C, 0x4, 0x10A, 0x7000, 0xA82A);
  554. extern pascal ComponentResult SGGetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  555.  FIVEWORDINLINE(0x2F3C, 0x4, 0x10B, 0x7000, 0xA82A);
  556. extern pascal ComponentResult SGGrabFrame(SGChannel c, short bufferNum)
  557.  FIVEWORDINLINE(0x2F3C, 0x2, 0x10C, 0x7000, 0xA82A);
  558. extern pascal ComponentResult SGGrabFrameComplete(SGChannel c, short bufferNum, Boolean *done)
  559.  FIVEWORDINLINE(0x2F3C, 0x6, 0x10D, 0x7000, 0xA82A);
  560. extern pascal ComponentResult SGDisplayFrame(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  561.  FIVEWORDINLINE(0x2F3C, 0xA, 0x10E, 0x7000, 0xA82A);
  562. extern pascal ComponentResult SGCompressFrame(SGChannel c, short bufferNum)
  563.  FIVEWORDINLINE(0x2F3C, 0x2, 0x10F, 0x7000, 0xA82A);
  564. extern pascal ComponentResult SGCompressFrameComplete(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci)
  565.  FIVEWORDINLINE(0x2F3C, 0xA, 0x110, 0x7000, 0xA82A);
  566. extern pascal ComponentResult SGAddFrame(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci)
  567.  FIVEWORDINLINE(0x2F3C, 0xE, 0x111, 0x7000, 0xA82A);
  568. extern pascal ComponentResult SGTransferFrameForCompress(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  569.  FIVEWORDINLINE(0x2F3C, 0xA, 0x112, 0x7000, 0xA82A);
  570. extern pascal ComponentResult SGSetCompressBuffer(SGChannel c, short depth, const Rect *compressSize)
  571.  FIVEWORDINLINE(0x2F3C, 0x6, 0x113, 0x7000, 0xA82A);
  572. extern pascal ComponentResult SGGetCompressBuffer(SGChannel c, short *depth, Rect *compressSize)
  573.  FIVEWORDINLINE(0x2F3C, 0x8, 0x114, 0x7000, 0xA82A);
  574. extern pascal ComponentResult SGGetBufferInfo(SGChannel c, short bufferNum, PixMapHandle *bufferPM, Rect *bufferRect, GWorldPtr *compressBuffer, Rect *compressBufferRect)
  575.  FIVEWORDINLINE(0x2F3C, 0x12, 0x115, 0x7000, 0xA82A);
  576. extern pascal ComponentResult SGSetUseScreenBuffer(SGChannel c, Boolean useScreenBuffer)
  577.  FIVEWORDINLINE(0x2F3C, 0x2, 0x116, 0x7000, 0xA82A);
  578. extern pascal ComponentResult SGGetUseScreenBuffer(SGChannel c, Boolean *useScreenBuffer)
  579.  FIVEWORDINLINE(0x2F3C, 0x4, 0x117, 0x7000, 0xA82A);
  580. extern pascal ComponentResult SGGrabCompressComplete(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *tr)
  581.  FIVEWORDINLINE(0x2F3C, 0xC, 0x118, 0x7000, 0xA82A);
  582. extern pascal ComponentResult SGDisplayCompress(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn)
  583.  FIVEWORDINLINE(0x2F3C, 0x10, 0x119, 0x7000, 0xA82A);
  584. extern pascal ComponentResult SGSetFrameRate(SGChannel c, Fixed frameRate)
  585.  FIVEWORDINLINE(0x2F3C, 0x4, 0x11A, 0x7000, 0xA82A);
  586. extern pascal ComponentResult SGGetFrameRate(SGChannel c, Fixed *frameRate)
  587.  FIVEWORDINLINE(0x2F3C, 0x4, 0x11B, 0x7000, 0xA82A);
  588. /*** Sequence Grab SOUND CHANNEL Component Stuff ***/
  589. /*
  590.     Sound stuff
  591. */
  592. extern pascal ComponentResult SGSetSoundInputDriver(SGChannel c, ConstStr255Param driverName)
  593.  FIVEWORDINLINE(0x2F3C, 0x4, 0x100, 0x7000, 0xA82A);
  594. extern pascal long SGGetSoundInputDriver(SGChannel c)
  595.  FIVEWORDINLINE(0x2F3C, 0, 0x101, 0x7000, 0xA82A);
  596. extern pascal ComponentResult SGSoundInputDriverChanged(SGChannel c)
  597.  FIVEWORDINLINE(0x2F3C, 0, 0x102, 0x7000, 0xA82A);
  598. extern pascal ComponentResult SGSetSoundRecordChunkSize(SGChannel c, long seconds)
  599.  FIVEWORDINLINE(0x2F3C, 0x4, 0x103, 0x7000, 0xA82A);
  600. extern pascal long SGGetSoundRecordChunkSize(SGChannel c)
  601.  FIVEWORDINLINE(0x2F3C, 0, 0x104, 0x7000, 0xA82A);
  602. extern pascal ComponentResult SGSetSoundInputRate(SGChannel c, Fixed rate)
  603.  FIVEWORDINLINE(0x2F3C, 0x4, 0x105, 0x7000, 0xA82A);
  604. extern pascal Fixed SGGetSoundInputRate(SGChannel c)
  605.  FIVEWORDINLINE(0x2F3C, 0, 0x106, 0x7000, 0xA82A);
  606. extern pascal ComponentResult SGSetSoundInputParameters(SGChannel c, short sampleSize, short numChannels, OSType compressionType)
  607.  FIVEWORDINLINE(0x2F3C, 0x8, 0x107, 0x7000, 0xA82A);
  608. extern pascal ComponentResult SGGetSoundInputParameters(SGChannel c, short *sampleSize, short *numChannels, OSType *compressionType)
  609.  FIVEWORDINLINE(0x2F3C, 0xC, 0x108, 0x7000, 0xA82A);
  610.  
  611. enum {
  612.     sgChannelAtom                = 'chan',
  613.     sgChannelSettingsAtom        = 'ctom',
  614.     sgChannelDescription        = 'cdsc',
  615.     sgChannelSettings            = 'cset'
  616. };
  617.  
  618. enum {
  619.     sgDeviceNameType            = 'name',
  620.     sgUsageType                    = 'use ',
  621.     sgPlayFlagsType                = 'plyf',
  622.     sgClipType                    = 'clip',
  623.     sgMatrixType                = 'mtrx',
  624.     sgVolumeType                = 'volu'
  625. };
  626.  
  627. enum {
  628.     sgPanelSettingsAtom            = 'ptom',
  629.     sgPanelDescription            = 'pdsc',
  630.     sgPanelSettings                = 'pset'
  631. };
  632.  
  633. enum {
  634.     sgcSoundCompressionType        = 'scmp',
  635.     sgcSoundSampleRateType        = 'srat',
  636.     sgcSoundChannelCountType    = 'schn',
  637.     sgcSoundSampleSizeType        = 'ssiz',
  638.     sgcSoundInputType            = 'sinp',
  639.     sgcSoundGainType            = 'gain'
  640. };
  641.  
  642. enum {
  643.     sgcVideoHueType                = 'hue ',
  644.     sgcVideoSaturationType        = 'satr',
  645.     sgcVideoContrastType        = 'trst',
  646.     sgcVideoSharpnessType        = 'shrp',
  647.     sgcVideoBrigtnessType        = 'brit',
  648.     sgcVideoBlackLevelType        = 'blkl',
  649.     sgcVideoWhiteLevelType        = 'whtl',
  650.     sgcVideoInputType            = 'vinp',
  651.     sgcVideoFormatType            = 'vstd',
  652.     sgcVideoFilterType            = 'vflt',
  653.     sgcVideoRectType            = 'vrct',
  654.     sgVideoDigitizerType        = 'vdig'
  655. };
  656.  
  657. enum {
  658.     kSGInitializeSelect            = 0x1,
  659.     kSGSetDataOutputSelect        = 0x2,
  660.     kSGGetDataOutputSelect        = 0x3,
  661.     kSGSetGWorldSelect            = 0x4,
  662.     kSGGetGWorldSelect            = 0x5,
  663.     kSGNewChannelSelect            = 0x6,
  664.     kSGDisposeChannelSelect        = 0x7,
  665.     kSGStartPreviewSelect        = 0x10,
  666.     kSGStartRecordSelect        = 0x11,
  667.     kSGIdleSelect                = 0x12,
  668.     kSGStopSelect                = 0x13,
  669.     kSGPauseSelect                = 0x14,
  670.     kSGPrepareSelect            = 0x15,
  671.     kSGReleaseSelect            = 0x16,
  672.     kSGGetMovieSelect            = 0x17,
  673.     kSGSetMaximumRecordTimeSelect = 0x18,
  674.     kSGGetMaximumRecordTimeSelect = 0x19,
  675.     kSGGetStorageSpaceRemainingSelect = 0x1A,
  676.     kSGGetTimeRemainingSelect    = 0x1B,
  677.     kSGGrabPictSelect            = 0x1C,
  678.     kSGGetLastMovieResIDSelect    = 0x1D,
  679.     kSGSetFlagsSelect            = 0x1E,
  680.     kSGGetFlagsSelect            = 0x1F,
  681.     kSGSetDataProcSelect        = 0x20,
  682.     kSGNewChannelFromComponentSelect = 0x21,
  683.     kSGDisposeDeviceListSelect    = 0x22,
  684.     kSGAppendDeviceListToMenuSelect = 0x23,
  685.     kSGSetSettingsSelect        = 0x24,
  686.     kSGGetSettingsSelect        = 0x25,
  687.     kSGGetIndChannelSelect        = 0x26,
  688.     kSGUpdateSelect                = 0x27,
  689.     kSGGetPauseSelect            = 0x28,
  690.     kSGSettingsDialogSelect        = 0x29,
  691.     kSGGetAlignmentProcSelect    = 0x2A,
  692.     kSGSetChannelSettingsSelect    = 0x2B,
  693.     kSGGetChannelSettingsSelect    = 0x2C,
  694.     kSGGetModeSelect            = 0x2D,
  695.     kSGSetDataRefSelect            = 0x2E,
  696.     kSGGetDataRefSelect            = 0x2F,
  697.     kSGNewOutputSelect            = 0x30,
  698.     kSGDisposeOutputSelect        = 0x31,
  699.     kSGSetOutputFlagsSelect        = 0x32,
  700.     kSGSetChannelOutputSelect    = 0x33,
  701.     kSGGetDataOutputStorageSpaceRemainingSelect = 0x34,
  702.     kSGWriteMovieDataSelect        = 0x100,
  703.     kSGAddFrameReferenceSelect    = 0x101,
  704.     kSGGetNextFrameReferenceSelect = 0x102,
  705.     kSGGetTimeBaseSelect        = 0x103,
  706.     kSGSortDeviceListSelect        = 0x104,
  707.     kSGAddMovieDataSelect        = 0x105,
  708.     kSGChangedSourceSelect        = 0x106,
  709.     kSGCSetChannelUsageSelect    = 0x80,
  710.     kSGCGetChannelUsageSelect    = 0x81,
  711.     kSGCSetChannelBoundsSelect    = 0x82,
  712.     kSGCGetChannelBoundsSelect    = 0x83,
  713.     kSGCSetChannelVolumeSelect    = 0x84,
  714.     kSGCGetChannelVolumeSelect    = 0x85,
  715.     kSGCGetChannelInfoSelect    = 0x86,
  716.     kSGCSetChannelPlayFlagsSelect = 0x87,
  717.     kSGCGetChannelPlayFlagsSelect = 0x88,
  718.     kSGCSetChannelMaxFramesSelect = 0x89,
  719.     kSGCGetChannelMaxFramesSelect = 0x8A,
  720.     kSGCSetChannelRefConSelect    = 0x8B,
  721.     kSGCSetChannelClipSelect    = 0x8C,
  722.     kSGCGetChannelClipSelect    = 0x8D,
  723.     kSGCGetChannelSampleDescriptionSelect = 0x8E,
  724.     kSGCGetChannelDeviceListSelect = 0x8F,
  725.     kSGCSetChannelDeviceSelect    = 0x90,
  726.     kSGCSetChannelMatrixSelect    = 0x91,
  727.     kSGCGetChannelMatrixSelect    = 0x92,
  728.     kSGCGetChannelTimeScaleSelect = 0x93,
  729.     kSGCChannelPutPictureSelect    = 0x94,
  730.     kSGCChannelSetRequestedDataRateSelect = 0x95,
  731.     kSGCChannelGetRequestedDataRateSelect = 0x96,
  732.     kSGCChannelSetDataSourceNameSelect = 0x97,
  733.     kSGCChannelGetDataSourceNameSelect = 0x98,
  734.     kSGCInitChannelSelect        = 0x180,
  735.     kSGCWriteSamplesSelect        = 0x181,
  736.     kSGCGetDataRateSelect        = 0x182,
  737.     kSGCAlignChannelRectSelect    = 0x183,
  738.     kSGCPanelGetDitlSelect        = 0x200,
  739.     kSGCPanelGetTitleSelect        = 0x201,
  740.     kSGCPanelCanRunSelect        = 0x202,
  741.     kSGCPanelInstallSelect        = 0x203,
  742.     kSGCPanelEventSelect        = 0x204,
  743.     kSGCPanelItemSelect            = 0x205,
  744.     kSGCPanelRemoveSelect        = 0x206,
  745.     kSGCPanelSetGrabberSelect    = 0x207,
  746.     kSGCPanelSetResFileSelect    = 0x208,
  747.     kSGCPanelGetSettingsSelect    = 0x209,
  748.     kSGCPanelSetSettingsSelect    = 0x20A,
  749.     kSGCPanelValidateInputSelect = 0x20B,
  750.     kSGCPanelSetEventFilterSelect = 0x20C,
  751.     kSGCGetSrcVideoBoundsSelect    = 0x100,
  752.     kSGCSetVideoRectSelect        = 0x101,
  753.     kSGCGetVideoRectSelect        = 0x102,
  754.     kSGCGetVideoCompressorTypeSelect = 0x103,
  755.     kSGCSetVideoCompressorTypeSelect = 0x104,
  756.     kSGCSetVideoCompressorSelect = 0x105,
  757.     kSGCGetVideoCompressorSelect = 0x106,
  758.     kSGCGetVideoDigitizerComponentSelect = 0x107,
  759.     kSGCSetVideoDigitizerComponentSelect = 0x108,
  760.     kSGCVideoDigitizerChangedSelect = 0x109,
  761.     kSGCSetVideoBottlenecksSelect = 0x10A,
  762.     kSGCGetVideoBottlenecksSelect = 0x10B,
  763.     kSGCGrabFrameSelect            = 0x10C,
  764.     kSGCGrabFrameCompleteSelect    = 0x10D,
  765.     kSGCDisplayFrameSelect        = 0x10E,
  766.     kSGCCompressFrameSelect        = 0x10F,
  767.     kSGCCompressFrameCompleteSelect = 0x110,
  768.     kSGCAddFrameSelect            = 0x111,
  769.     kSGCTransferFrameForCompressSelect = 0x112,
  770.     kSGCSetCompressBufferSelect    = 0x113,
  771.     kSGCGetCompressBufferSelect    = 0x114,
  772.     kSGCGetBufferInfoSelect        = 0x115,
  773.     kSGCSetUseScreenBufferSelect = 0x116,
  774.     kSGCGetUseScreenBufferSelect = 0x117,
  775.     kSGCGrabCompressCompleteSelect = 0x118,
  776.     kSGCDisplayCompressSelect    = 0x119,
  777.     kSGCSetFrameRateSelect        = 0x11A,
  778.     kSGCGetFrameRateSelect        = 0x11B,
  779.     kSGCSetSoundInputDriverSelect = 0x100,
  780.     kSGCGetSoundInputDriverSelect = 0x101,
  781.     kSGCSoundInputDriverChangedSelect = 0x102,
  782.     kSGCSetSoundRecordChunkSizeSelect = 0x103,
  783.     kSGCGetSoundRecordChunkSizeSelect = 0x104,
  784.     kSGCSetSoundInputRateSelect    = 0x105,
  785.     kSGCGetSoundInputRateSelect    = 0x106,
  786.     kSGCSetSoundInputParametersSelect = 0x107,
  787.     kSGCGetSoundInputParametersSelect = 0x108
  788. };
  789.  
  790. /* Standard type for video digitizers */
  791. enum {
  792.     videoDigitizerComponentType    = 'vdig',
  793.     vdigInterfaceRev            = 2
  794. };
  795.  
  796. /* Input Format Standards */
  797. enum {
  798.     ntscIn                        = 0,                            /* current input format */
  799.     currentIn                    = 0,                            /* ntsc input format */
  800.     palIn                        = 1,                            /* pal input format */
  801.     secamIn                        = 2,                            /* secam input format */
  802.     ntscReallyIn                = 3                                /* ntsc input format */
  803. };
  804.  
  805. /* Input Formats */
  806. enum {
  807.     compositeIn                    = 0,                            /* input is composite format */
  808.     sVideoIn                    = 1,                            /* input is sVideo format */
  809.     rgbComponentIn                = 2,                            /* input is rgb component format */
  810.     rgbComponentSyncIn            = 3,                            /* input is rgb component format (sync on green?)*/
  811.     yuvComponentIn                = 4,                            /* input is yuv component format */
  812.     yuvComponentSyncIn            = 5                                /* input is yuv component format (sync on green?) */
  813. };
  814.  
  815. /* Video Digitizer PlayThru States */
  816. enum {
  817.     vdPlayThruOff                = 0,
  818.     vdPlayThruOn                = 1
  819. };
  820.  
  821. /* Input Color Space Modes */
  822. enum {
  823.     vdDigitizerBW                = 0,                            /* black and white */
  824.     vdDigitizerRGB                = 1                                /* rgb color */
  825. };
  826.  
  827. /* Phase Lock Loop Modes */
  828. enum {
  829.     vdBroadcastMode                = 0,                            /* Broadcast / Laser Disk video mode */
  830.     vdVTRMode                    = 1                                /* VCR / Magnetic media mode */
  831. };
  832.  
  833. /* Field Select Options */
  834. enum {
  835.     vdUseAnyField                = 0,                            /* Digitizers choice on field use */
  836.     vdUseOddField                = 1,                            /* Use odd field for half size vert and smaller */
  837.     vdUseEvenField                = 2                                /* Use even field for half size vert and smaller */
  838. };
  839.  
  840. /* vdig types */
  841. enum {
  842.     vdTypeBasic                    = 0,                            /* basic, no clipping */
  843.     vdTypeAlpha                    = 1,                            /* supports clipping with alpha channel */
  844.     vdTypeMask                    = 2,                            /* supports clipping with mask plane */
  845.     vdTypeKey                    = 3                                /* supports clipping with key color(s) */
  846. };
  847.  
  848. /* Digitizer Input Capability/Current Flags    */
  849. enum {
  850.     digiInDoesNTSC                = 1L << 0,                        /* digitizer supports NTSC input format */
  851.     digiInDoesPAL                = 1L << 1,                        /* digitizer supports PAL input format */
  852.     digiInDoesSECAM                = 1L << 2,                        /* digitizer supports SECAM input format */
  853.     digiInDoesGenLock            = 1L << 7,                        /* digitizer does genlock */
  854.     digiInDoesComposite            = 1L << 8,                        /* digitizer supports composite input type */
  855.     digiInDoesSVideo            = 1L << 9,                        /* digitizer supports S-Video input type */
  856.     digiInDoesComponent            = 1L << 10,                        /* digitizer supports component = rgb, input type */
  857.     digiInVTR_Broadcast            = 1L << 11,                        /* digitizer can differentiate between the two */
  858.     digiInDoesColor                = 1L << 12,                        /* digitizer supports color */
  859.     digiInDoesBW                = 1L << 13,                        /* digitizer supports black & white */
  860. /* Digitizer Input Current Flags = these are valid only during active operating conditions,    */
  861.     digiInSignalLock            = 1L << 31                        /* digitizer detects input signal is locked, this bit = horiz lock || vertical lock */
  862. };
  863.  
  864. /* Digitizer Output Capability/Current Flags */
  865. enum {
  866.     digiOutDoes1                = 1L << 0,                        /* digitizer supports 1 bit pixels */
  867.     digiOutDoes2                = 1L << 1,                        /* digitizer supports 2 bit pixels */
  868.     digiOutDoes4                = 1L << 2,                        /* digitizer supports 4 bit pixels */
  869.     digiOutDoes8                = 1L << 3,                        /* digitizer supports 8 bit pixels */
  870.     digiOutDoes16                = 1L << 4,                        /* digitizer supports 16 bit pixels */
  871.     digiOutDoes32                = 1L << 5,                        /* digitizer supports 32 bit pixels */
  872.     digiOutDoesDither            = 1L << 6,                        /* digitizer dithers in indexed modes */
  873.     digiOutDoesStretch            = 1L << 7,                        /* digitizer can arbitrarily stretch */
  874.     digiOutDoesShrink            = 1L << 8,                        /* digitizer can arbitrarily shrink */
  875.     digiOutDoesMask                = 1L << 9,                        /* digitizer can mask to clipping regions */
  876.     digiOutDoesDouble            = 1L << 11,                        /* digitizer can stretch to exactly double size */
  877.     digiOutDoesQuad                = 1L << 12,                        /* digitizer can stretch exactly quadruple size */
  878.     digiOutDoesQuarter            = 1L << 13,                        /* digitizer can shrink to exactly quarter size */
  879.     digiOutDoesSixteenth        = 1L << 14,                        /* digitizer can shrink to exactly sixteenth size */
  880.     digiOutDoesRotate            = 1L << 15,                        /* digitizer supports rotate transformations */
  881.     digiOutDoesHorizFlip        = 1L << 16,                        /* digitizer supports horizontal flips Sx < 0 */
  882.     digiOutDoesVertFlip            = 1L << 17,                        /* digitizer supports vertical flips Sy < 0 */
  883.     digiOutDoesSkew                = 1L << 18,                        /* digitizer supports skew = shear,twist, */
  884.     digiOutDoesBlend            = 1L << 19,
  885.     digiOutDoesWarp                = 1L << 20,
  886.     digiOutDoesHW_DMA            = 1L << 21,                        /* digitizer not constrained to local device */
  887.     digiOutDoesHWPlayThru        = 1L << 22,                        /* digitizer doesn't need time to play thru */
  888.     digiOutDoesILUT                = 1L << 23,                        /* digitizer does inverse LUT for index modes */
  889.     digiOutDoesKeyColor            = 1L << 24,                        /* digitizer does key color functions too */
  890.     digiOutDoesAsyncGrabs        = 1L << 25,                        /* digitizer supports async grabs */
  891.     digiOutDoesUnreadableScreenBits = 1L << 26,                    /* playthru doesn't generate readable bits on screen*/
  892.     digiOutDoesCompress            = 1L << 27,                        /* supports alternate output data types */
  893.     digiOutDoesCompressOnly        = 1L << 28,                        /* can't provide raw frames anywhere */
  894.     digiOutDoesPlayThruDuringCompress = 1L << 29                /* digi can do playthru while providing compressed data */
  895. };
  896.  
  897. /* Types */
  898. typedef ComponentInstance VideoDigitizerComponent;
  899.  
  900. typedef ComponentResult VideoDigitizerError;
  901.  
  902. struct DigitizerInfo {
  903.     short                            vdigType;
  904.     long                            inputCapabilityFlags;
  905.     long                            outputCapabilityFlags;
  906.     long                            inputCurrentFlags;
  907.     long                            outputCurrentFlags;
  908.     short                            slot;                        /* temporary for connection purposes */
  909.     GDHandle                        gdh;                        /* temporary for digitizers that have preferred screen */
  910.     GDHandle                        maskgdh;                    /* temporary for digitizers that have mask planes */
  911.     short                            minDestHeight;                /* Smallest resizable height */
  912.     short                            minDestWidth;                /* Smallest resizable width */
  913.     short                            maxDestHeight;                /* Largest resizable height */
  914.     short                            maxDestWidth;                /* Largest resizable height */
  915.     short                            blendLevels;                /* Number of blend levels supported (2 if 1 bit mask) */
  916.     long                            reserved;                    /* reserved */
  917. };
  918. typedef struct DigitizerInfo DigitizerInfo;
  919.  
  920. struct VdigType {
  921.     long                            digType;
  922.     long                            reserved;
  923. };
  924. typedef struct VdigType VdigType;
  925.  
  926. struct VdigTypeList {
  927.     short                            count;
  928.     VdigType                        list[1];
  929. };
  930. typedef struct VdigTypeList VdigTypeList;
  931.  
  932. struct VdigBufferRec {
  933.     PixMapHandle                    dest;
  934.     Point                            location;
  935.     long                            reserved;
  936. };
  937. typedef struct VdigBufferRec VdigBufferRec;
  938.  
  939. struct VdigBufferRecList {
  940.     short                            count;
  941.     MatrixRecordPtr                    matrix;
  942.     RgnHandle                        mask;
  943.     VdigBufferRec                    list[1];
  944. };
  945. typedef struct VdigBufferRecList VdigBufferRecList, *VdigBufferRecListPtr, **VdigBufferRecListHandle;
  946.  
  947. typedef pascal void (*VdigIntProcPtr)(long flags, long refcon);
  948.  
  949. #if GENERATINGCFM
  950. typedef UniversalProcPtr VdigIntUPP;
  951. #else
  952. typedef VdigIntProcPtr VdigIntUPP;
  953. #endif
  954.  
  955. struct VDCompressionList {
  956.     CodecComponent                    codec;
  957.     CodecType                        cType;
  958.     Str63                            typeName;
  959.     Str63                            name;
  960.     long                            formatFlags;
  961.     long                            compressFlags;
  962.     long                            reserved;
  963. };
  964. typedef struct VDCompressionList VDCompressionList, *VDCompressionListPtr, **VDCompressionListHandle;
  965.  
  966.  
  967. enum {
  968.     dmaDepth1                    = 1,
  969.     dmaDepth2                    = 2,
  970.     dmaDepth4                    = 4,
  971.     dmaDepth8                    = 8,
  972.     dmaDepth16                    = 16,
  973.     dmaDepth32                    = 32,
  974.     dmaDepth2Gray                = 64,
  975.     dmaDepth4Gray                = 128,
  976.     dmaDepth8Gray                = 256
  977. };
  978.  
  979. enum {
  980.     kVDIGControlledFrameRate    = -1
  981. };
  982.  
  983. /* number of vdig calls*/
  984. enum {
  985.     kvdigSelectors                = 86
  986. };
  987.  
  988. extern pascal VideoDigitizerError VDGetMaxSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *maxSrcRect)
  989.  FIVEWORDINLINE(0x2F3C, 0x6, 0x1, 0x7000, 0xA82A);
  990. extern pascal VideoDigitizerError VDGetActiveSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *activeSrcRect)
  991.  FIVEWORDINLINE(0x2F3C, 0x6, 0x2, 0x7000, 0xA82A);
  992. extern pascal VideoDigitizerError VDSetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  993.  FIVEWORDINLINE(0x2F3C, 0x4, 0x3, 0x7000, 0xA82A);
  994. extern pascal VideoDigitizerError VDGetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  995.  FIVEWORDINLINE(0x2F3C, 0x4, 0x4, 0x7000, 0xA82A);
  996. extern pascal VideoDigitizerError VDGetVBlankRect(VideoDigitizerComponent ci, short inputStd, Rect *vBlankRect)
  997.  FIVEWORDINLINE(0x2F3C, 0x6, 0x5, 0x7000, 0xA82A);
  998. extern pascal VideoDigitizerError VDGetMaskPixMap(VideoDigitizerComponent ci, PixMapHandle maskPixMap)
  999.  FIVEWORDINLINE(0x2F3C, 0x4, 0x6, 0x7000, 0xA82A);
  1000. extern pascal VideoDigitizerError VDGetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle *dest, Rect *destRect, MatrixRecord *m, RgnHandle *mask)
  1001.  FIVEWORDINLINE(0x2F3C, 0x10, 0x8, 0x7000, 0xA82A);
  1002. extern pascal VideoDigitizerError VDUseThisCLUT(VideoDigitizerComponent ci, CTabHandle colorTableHandle)
  1003.  FIVEWORDINLINE(0x2F3C, 0x4, 0x9, 0x7000, 0xA82A);
  1004. extern pascal VideoDigitizerError VDSetInputGammaValue(VideoDigitizerComponent ci, Fixed channel1, Fixed channel2, Fixed channel3)
  1005.  FIVEWORDINLINE(0x2F3C, 0xC, 0xA, 0x7000, 0xA82A);
  1006. extern pascal VideoDigitizerError VDGetInputGammaValue(VideoDigitizerComponent ci, Fixed *channel1, Fixed *channel2, Fixed *channel3)
  1007.  FIVEWORDINLINE(0x2F3C, 0xC, 0xB, 0x7000, 0xA82A);
  1008. extern pascal VideoDigitizerError VDSetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  1009.  FIVEWORDINLINE(0x2F3C, 0x4, 0xC, 0x7000, 0xA82A);
  1010. extern pascal VideoDigitizerError VDGetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  1011.  FIVEWORDINLINE(0x2F3C, 0x4, 0xD, 0x7000, 0xA82A);
  1012. extern pascal VideoDigitizerError VDSetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  1013.  FIVEWORDINLINE(0x2F3C, 0x4, 0xE, 0x7000, 0xA82A);
  1014. extern pascal VideoDigitizerError VDSetHue(VideoDigitizerComponent ci, unsigned short *hue)
  1015.  FIVEWORDINLINE(0x2F3C, 0x4, 0xF, 0x7000, 0xA82A);
  1016. extern pascal VideoDigitizerError VDSetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  1017.  FIVEWORDINLINE(0x2F3C, 0x4, 0x10, 0x7000, 0xA82A);
  1018. extern pascal VideoDigitizerError VDSetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  1019.  FIVEWORDINLINE(0x2F3C, 0x4, 0x11, 0x7000, 0xA82A);
  1020. extern pascal VideoDigitizerError VDGetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  1021.  FIVEWORDINLINE(0x2F3C, 0x4, 0x12, 0x7000, 0xA82A);
  1022. extern pascal VideoDigitizerError VDGetHue(VideoDigitizerComponent ci, unsigned short *hue)
  1023.  FIVEWORDINLINE(0x2F3C, 0x4, 0x13, 0x7000, 0xA82A);
  1024. extern pascal VideoDigitizerError VDGetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  1025.  FIVEWORDINLINE(0x2F3C, 0x4, 0x14, 0x7000, 0xA82A);
  1026. extern pascal VideoDigitizerError VDGetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  1027.  FIVEWORDINLINE(0x2F3C, 0x4, 0x15, 0x7000, 0xA82A);
  1028. extern pascal VideoDigitizerError VDGrabOneFrame(VideoDigitizerComponent ci)
  1029.  FIVEWORDINLINE(0x2F3C, 0, 0x16, 0x7000, 0xA82A);
  1030. extern pascal VideoDigitizerError VDGetMaxAuxBuffer(VideoDigitizerComponent ci, PixMapHandle *pm, Rect *r)
  1031.  FIVEWORDINLINE(0x2F3C, 0x8, 0x17, 0x7000, 0xA82A);
  1032. extern pascal VideoDigitizerError VDGetDigitizerInfo(VideoDigitizerComponent ci, DigitizerInfo *info)
  1033.  FIVEWORDINLINE(0x2F3C, 0x4, 0x19, 0x7000, 0xA82A);
  1034. extern pascal VideoDigitizerError VDGetCurrentFlags(VideoDigitizerComponent ci, long *inputCurrentFlag, long *outputCurrentFlag)
  1035.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1A, 0x7000, 0xA82A);
  1036. extern pascal VideoDigitizerError VDSetKeyColor(VideoDigitizerComponent ci, long index)
  1037.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1B, 0x7000, 0xA82A);
  1038. extern pascal VideoDigitizerError VDGetKeyColor(VideoDigitizerComponent ci, long *index)
  1039.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1C, 0x7000, 0xA82A);
  1040. extern pascal VideoDigitizerError VDAddKeyColor(VideoDigitizerComponent ci, long *index)
  1041.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1D, 0x7000, 0xA82A);
  1042. extern pascal VideoDigitizerError VDGetNextKeyColor(VideoDigitizerComponent ci, long index)
  1043.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1E, 0x7000, 0xA82A);
  1044. extern pascal VideoDigitizerError VDSetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  1045.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1F, 0x7000, 0xA82A);
  1046. extern pascal VideoDigitizerError VDGetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  1047.  FIVEWORDINLINE(0x2F3C, 0x8, 0x20, 0x7000, 0xA82A);
  1048. extern pascal VideoDigitizerError VDSetDigitizerUserInterrupt(VideoDigitizerComponent ci, long flags, VdigIntUPP userInterruptProc, long refcon)
  1049.  FIVEWORDINLINE(0x2F3C, 0xC, 0x21, 0x7000, 0xA82A);
  1050. extern pascal VideoDigitizerError VDSetInputColorSpaceMode(VideoDigitizerComponent ci, short colorSpaceMode)
  1051.  FIVEWORDINLINE(0x2F3C, 0x2, 0x22, 0x7000, 0xA82A);
  1052. extern pascal VideoDigitizerError VDGetInputColorSpaceMode(VideoDigitizerComponent ci, short *colorSpaceMode)
  1053.  FIVEWORDINLINE(0x2F3C, 0x4, 0x23, 0x7000, 0xA82A);
  1054. extern pascal VideoDigitizerError VDSetClipState(VideoDigitizerComponent ci, short clipEnable)
  1055.  FIVEWORDINLINE(0x2F3C, 0x2, 0x24, 0x7000, 0xA82A);
  1056. extern pascal VideoDigitizerError VDGetClipState(VideoDigitizerComponent ci, short *clipEnable)
  1057.  FIVEWORDINLINE(0x2F3C, 0x4, 0x25, 0x7000, 0xA82A);
  1058. extern pascal VideoDigitizerError VDSetClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  1059.  FIVEWORDINLINE(0x2F3C, 0x4, 0x26, 0x7000, 0xA82A);
  1060. extern pascal VideoDigitizerError VDClearClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  1061.  FIVEWORDINLINE(0x2F3C, 0x4, 0x27, 0x7000, 0xA82A);
  1062. extern pascal VideoDigitizerError VDGetCLUTInUse(VideoDigitizerComponent ci, CTabHandle *colorTableHandle)
  1063.  FIVEWORDINLINE(0x2F3C, 0x4, 0x28, 0x7000, 0xA82A);
  1064. extern pascal VideoDigitizerError VDSetPLLFilterType(VideoDigitizerComponent ci, short pllType)
  1065.  FIVEWORDINLINE(0x2F3C, 0x2, 0x29, 0x7000, 0xA82A);
  1066. extern pascal VideoDigitizerError VDGetPLLFilterType(VideoDigitizerComponent ci, short *pllType)
  1067.  FIVEWORDINLINE(0x2F3C, 0x4, 0x2A, 0x7000, 0xA82A);
  1068. extern pascal VideoDigitizerError VDGetMaskandValue(VideoDigitizerComponent ci, unsigned short blendLevel, long *mask, long *value)
  1069.  FIVEWORDINLINE(0x2F3C, 0xA, 0x2B, 0x7000, 0xA82A);
  1070. extern pascal VideoDigitizerError VDSetMasterBlendLevel(VideoDigitizerComponent ci, unsigned short *blendLevel)
  1071.  FIVEWORDINLINE(0x2F3C, 0x4, 0x2C, 0x7000, 0xA82A);
  1072. extern pascal VideoDigitizerError VDSetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle dest, Rect *destRect, MatrixRecord *m, RgnHandle mask)
  1073.  FIVEWORDINLINE(0x2F3C, 0x10, 0x2D, 0x7000, 0xA82A);
  1074. extern pascal VideoDigitizerError VDSetPlayThruOnOff(VideoDigitizerComponent ci, short state)
  1075.  FIVEWORDINLINE(0x2F3C, 0x2, 0x2E, 0x7000, 0xA82A);
  1076. extern pascal VideoDigitizerError VDSetFieldPreference(VideoDigitizerComponent ci, short fieldFlag)
  1077.  FIVEWORDINLINE(0x2F3C, 0x2, 0x2F, 0x7000, 0xA82A);
  1078. extern pascal VideoDigitizerError VDGetFieldPreference(VideoDigitizerComponent ci, short *fieldFlag)
  1079.  FIVEWORDINLINE(0x2F3C, 0x4, 0x30, 0x7000, 0xA82A);
  1080. extern pascal VideoDigitizerError VDPreflightDestination(VideoDigitizerComponent ci, Rect *digitizerRect, PixMap **dest, Rect *destRect, MatrixRecord *m)
  1081.  FIVEWORDINLINE(0x2F3C, 0x10, 0x32, 0x7000, 0xA82A);
  1082. extern pascal VideoDigitizerError VDPreflightGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  1083.  FIVEWORDINLINE(0x2F3C, 0x8, 0x33, 0x7000, 0xA82A);
  1084. extern pascal VideoDigitizerError VDSetPlayThruGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  1085.  FIVEWORDINLINE(0x2F3C, 0x8, 0x34, 0x7000, 0xA82A);
  1086. extern pascal VideoDigitizerError VDSetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr inputGammaPtr)
  1087.  FIVEWORDINLINE(0x2F3C, 0x4, 0x35, 0x7000, 0xA82A);
  1088. extern pascal VideoDigitizerError VDGetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr *inputGammaPtr)
  1089.  FIVEWORDINLINE(0x2F3C, 0x4, 0x36, 0x7000, 0xA82A);
  1090. extern pascal VideoDigitizerError VDSetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  1091.  FIVEWORDINLINE(0x2F3C, 0x4, 0x37, 0x7000, 0xA82A);
  1092. extern pascal VideoDigitizerError VDGetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  1093.  FIVEWORDINLINE(0x2F3C, 0x4, 0x38, 0x7000, 0xA82A);
  1094. extern pascal VideoDigitizerError VDSetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  1095.  FIVEWORDINLINE(0x2F3C, 0x4, 0x39, 0x7000, 0xA82A);
  1096. extern pascal VideoDigitizerError VDGetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  1097.  FIVEWORDINLINE(0x2F3C, 0x4, 0x3A, 0x7000, 0xA82A);
  1098. extern pascal VideoDigitizerError VDGetVideoDefaults(VideoDigitizerComponent ci, unsigned short *blackLevel, unsigned short *whiteLevel, unsigned short *brightness, unsigned short *hue, unsigned short *saturation, unsigned short *contrast, unsigned short *sharpness)
  1099.  FIVEWORDINLINE(0x2F3C, 0x1C, 0x3B, 0x7000, 0xA82A);
  1100. extern pascal VideoDigitizerError VDGetNumberOfInputs(VideoDigitizerComponent ci, short *inputs)
  1101.  FIVEWORDINLINE(0x2F3C, 0x4, 0x3C, 0x7000, 0xA82A);
  1102. extern pascal VideoDigitizerError VDGetInputFormat(VideoDigitizerComponent ci, short input, short *format)
  1103.  FIVEWORDINLINE(0x2F3C, 0x6, 0x3D, 0x7000, 0xA82A);
  1104. extern pascal VideoDigitizerError VDSetInput(VideoDigitizerComponent ci, short input)
  1105.  FIVEWORDINLINE(0x2F3C, 0x2, 0x3E, 0x7000, 0xA82A);
  1106. extern pascal VideoDigitizerError VDGetInput(VideoDigitizerComponent ci, short *input)
  1107.  FIVEWORDINLINE(0x2F3C, 0x4, 0x3F, 0x7000, 0xA82A);
  1108. extern pascal VideoDigitizerError VDSetInputStandard(VideoDigitizerComponent ci, short inputStandard)
  1109.  FIVEWORDINLINE(0x2F3C, 0x2, 0x40, 0x7000, 0xA82A);
  1110. extern pascal VideoDigitizerError VDSetupBuffers(VideoDigitizerComponent ci, VdigBufferRecListHandle bufferList)
  1111.  FIVEWORDINLINE(0x2F3C, 0x4, 0x41, 0x7000, 0xA82A);
  1112. extern pascal VideoDigitizerError VDGrabOneFrameAsync(VideoDigitizerComponent ci, short buffer)
  1113.  FIVEWORDINLINE(0x2F3C, 0x2, 0x42, 0x7000, 0xA82A);
  1114. extern pascal VideoDigitizerError VDDone(VideoDigitizerComponent ci, short buffer)
  1115.  FIVEWORDINLINE(0x2F3C, 0x2, 0x43, 0x7000, 0xA82A);
  1116. extern pascal VideoDigitizerError VDSetCompression(VideoDigitizerComponent ci, OSType compressType, short depth, Rect *bounds, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  1117.  FIVEWORDINLINE(0x2F3C, 0x16, 0x44, 0x7000, 0xA82A);
  1118. extern pascal VideoDigitizerError VDCompressOneFrameAsync(VideoDigitizerComponent ci)
  1119.  FIVEWORDINLINE(0x2F3C, 0, 0x45, 0x7000, 0xA82A);
  1120. extern pascal VideoDigitizerError VDCompressDone(VideoDigitizerComponent ci, Boolean *done, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t)
  1121.  FIVEWORDINLINE(0x2F3C, 0x14, 0x46, 0x7000, 0xA82A);
  1122. extern pascal VideoDigitizerError VDReleaseCompressBuffer(VideoDigitizerComponent ci, Ptr bufferAddr)
  1123.  FIVEWORDINLINE(0x2F3C, 0x4, 0x47, 0x7000, 0xA82A);
  1124. extern pascal VideoDigitizerError VDGetImageDescription(VideoDigitizerComponent ci, ImageDescriptionHandle desc)
  1125.  FIVEWORDINLINE(0x2F3C, 0x4, 0x48, 0x7000, 0xA82A);
  1126. extern pascal VideoDigitizerError VDResetCompressSequence(VideoDigitizerComponent ci)
  1127.  FIVEWORDINLINE(0x2F3C, 0, 0x49, 0x7000, 0xA82A);
  1128. extern pascal VideoDigitizerError VDSetCompressionOnOff(VideoDigitizerComponent ci, Boolean state)
  1129.  FIVEWORDINLINE(0x2F3C, 0x2, 0x4A, 0x7000, 0xA82A);
  1130. extern pascal VideoDigitizerError VDGetCompressionTypes(VideoDigitizerComponent ci, VDCompressionListHandle h)
  1131.  FIVEWORDINLINE(0x2F3C, 0x4, 0x4B, 0x7000, 0xA82A);
  1132. extern pascal VideoDigitizerError VDSetTimeBase(VideoDigitizerComponent ci, TimeBase t)
  1133.  FIVEWORDINLINE(0x2F3C, 0x4, 0x4C, 0x7000, 0xA82A);
  1134. extern pascal VideoDigitizerError VDSetFrameRate(VideoDigitizerComponent ci, Fixed framesPerSecond)
  1135.  FIVEWORDINLINE(0x2F3C, 0x4, 0x4D, 0x7000, 0xA82A);
  1136. extern pascal VideoDigitizerError VDGetDataRate(VideoDigitizerComponent ci, long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond)
  1137.  FIVEWORDINLINE(0x2F3C, 0xC, 0x4E, 0x7000, 0xA82A);
  1138. extern pascal VideoDigitizerError VDGetSoundInputDriver(VideoDigitizerComponent ci, Str255 soundDriverName)
  1139.  FIVEWORDINLINE(0x2F3C, 0x4, 0x4F, 0x7000, 0xA82A);
  1140. extern pascal VideoDigitizerError VDGetDMADepths(VideoDigitizerComponent ci, long *depthArray, long *preferredDepth)
  1141.  FIVEWORDINLINE(0x2F3C, 0x8, 0x50, 0x7000, 0xA82A);
  1142. extern pascal VideoDigitizerError VDGetPreferredTimeScale(VideoDigitizerComponent ci, TimeScale *preferred)
  1143.  FIVEWORDINLINE(0x2F3C, 0x4, 0x51, 0x7000, 0xA82A);
  1144. extern pascal VideoDigitizerError VDReleaseAsyncBuffers(VideoDigitizerComponent ci)
  1145.  FIVEWORDINLINE(0x2F3C, 0, 0x52, 0x7000, 0xA82A);
  1146. /* 83 is reserved for compatibility reasons */
  1147. extern pascal VideoDigitizerError VDSetDataRate(VideoDigitizerComponent ci, long bytesPerSecond)
  1148.  FIVEWORDINLINE(0x2F3C, 0x4, 0x54, 0x7000, 0xA82A);
  1149. extern pascal VideoDigitizerError VDGetTimeCode(VideoDigitizerComponent ci, TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime)
  1150.  FIVEWORDINLINE(0x2F3C, 0xC, 0x55, 0x7000, 0xA82A);
  1151. extern pascal VideoDigitizerError VDUseSafeBuffers(VideoDigitizerComponent ci, Boolean useSafeBuffers)
  1152.  FIVEWORDINLINE(0x2F3C, 0x2, 0x56, 0x7000, 0xA82A);
  1153.  
  1154. enum {
  1155.     kSelectVDGetMaxSrcRect        = 0x1,
  1156.     kSelectVDGetActiveSrcRect    = 0x2,
  1157.     kSelectVDSetDigitizerRect    = 0x3,
  1158.     kSelectVDGetDigitizerRect    = 0x4,
  1159.     kSelectVDGetVBlankRect        = 0x5,
  1160.     kSelectVDGetMaskPixMap        = 0x6,
  1161.     kSelectVDGetPlayThruDestination = 0x8,
  1162.     kSelectVDUseThisCLUT        = 0x9,
  1163.     kSelectVDSetInputGammaValue    = 0xA,
  1164.     kSelectVDGetInputGammaValue    = 0xB,
  1165.     kSelectVDSetBrightness        = 0xC,
  1166.     kSelectVDGetBrightness        = 0xD,
  1167.     kSelectVDSetContrast        = 0xE,
  1168.     kSelectVDSetHue                = 0xF,
  1169.     kSelectVDSetSharpness        = 0x10,
  1170.     kSelectVDSetSaturation        = 0x11,
  1171.     kSelectVDGetContrast        = 0x12,
  1172.     kSelectVDGetHue                = 0x13,
  1173.     kSelectVDGetSharpness        = 0x14,
  1174.     kSelectVDGetSaturation        = 0x15,
  1175.     kSelectVDGrabOneFrame        = 0x16,
  1176.     kSelectVDGetMaxAuxBuffer    = 0x17,
  1177.     kSelectVDGetDigitizerInfo    = 0x19,
  1178.     kSelectVDGetCurrentFlags    = 0x1A,
  1179.     kSelectVDSetKeyColor        = 0x1B,
  1180.     kSelectVDGetKeyColor        = 0x1C,
  1181.     kSelectVDAddKeyColor        = 0x1D,
  1182.     kSelectVDGetNextKeyColor    = 0x1E,
  1183.     kSelectVDSetKeyColorRange    = 0x1F,
  1184.     kSelectVDGetKeyColorRange    = 0x20,
  1185.     kSelectVDSetDigitizerUserInterrupt = 0x21,
  1186.     kSelectVDSetInputColorSpaceMode = 0x22,
  1187.     kSelectVDGetInputColorSpaceMode = 0x23,
  1188.     kSelectVDSetClipState        = 0x24,
  1189.     kSelectVDGetClipState        = 0x25,
  1190.     kSelectVDSetClipRgn            = 0x26,
  1191.     kSelectVDClearClipRgn        = 0x27,
  1192.     kSelectVDGetCLUTInUse        = 0x28,
  1193.     kSelectVDSetPLLFilterType    = 0x29,
  1194.     kSelectVDGetPLLFilterType    = 0x2A,
  1195.     kSelectVDGetMaskandValue    = 0x2B,
  1196.     kSelectVDSetMasterBlendLevel = 0x2C,
  1197.     kSelectVDSetPlayThruDestination = 0x2D,
  1198.     kSelectVDSetPlayThruOnOff    = 0x2E,
  1199.     kSelectVDSetFieldPreference    = 0x2F,
  1200.     kSelectVDGetFieldPreference    = 0x30,
  1201.     kSelectVDPreflightDestination = 0x32,
  1202.     kSelectVDPreflightGlobalRect = 0x33,
  1203.     kSelectVDSetPlayThruGlobalRect = 0x34,
  1204.     kSelectVDSetInputGammaRecord = 0x35,
  1205.     kSelectVDGetInputGammaRecord = 0x36,
  1206.     kSelectVDSetBlackLevelValue    = 0x37,
  1207.     kSelectVDGetBlackLevelValue    = 0x38,
  1208.     kSelectVDSetWhiteLevelValue    = 0x39,
  1209.     kSelectVDGetWhiteLevelValue    = 0x3A,
  1210.     kSelectVDGetVideoDefaults    = 0x3B,
  1211.     kSelectVDGetNumberOfInputs    = 0x3C,
  1212.     kSelectVDGetInputFormat        = 0x3D,
  1213.     kSelectVDSetInput            = 0x3E,
  1214.     kSelectVDGetInput            = 0x3F,
  1215.     kSelectVDSetInputStandard    = 0x40,
  1216.     kSelectVDSetupBuffers        = 0x41,
  1217.     kSelectVDGrabOneFrameAsync    = 0x42,
  1218.     kSelectVDDone                = 0x43,
  1219.     kSelectVDSetCompression        = 0x44,
  1220.     kSelectVDCompressOneFrameAsync = 0x45,
  1221.     kSelectVDCompressDone        = 0x46,
  1222.     kSelectVDReleaseCompressBuffer = 0x47,
  1223.     kSelectVDGetImageDescription = 0x48,
  1224.     kSelectVDResetCompressSequence = 0x49,
  1225.     kSelectVDSetCompressionOnOff = 0x4A,
  1226.     kSelectVDGetCompressionTypes = 0x4B,
  1227.     kSelectVDSetTimeBase        = 0x4C,
  1228.     kSelectVDSetFrameRate        = 0x4D,
  1229.     kSelectVDGetDataRate        = 0x4E,
  1230.     kSelectVDGetSoundInputDriver = 0x4F,
  1231.     kSelectVDGetDMADepths        = 0x50,
  1232.     kSelectVDGetPreferredTimeScale = 0x51,
  1233.     kSelectVDReleaseAsyncBuffers = 0x52,
  1234.     kSelectVDSetDataRate        = 0x54,
  1235.     kSelectVDGetTimeCode        = 0x55,
  1236.     kSelectVDUseSafeBuffers        = 0x56
  1237. };
  1238.  
  1239. enum {
  1240.     StandardCompressionType        = 'scdi',
  1241.     StandardCompressionSubType    = 'imag'
  1242. };
  1243.  
  1244. typedef pascal Boolean (*SCModalFilterProcPtr)(DialogPtr theDialog, EventRecord *theEvent, short *itemHit, long refcon);
  1245. typedef pascal short (*SCModalHookProcPtr)(DialogPtr theDialog, short itemHit, void *params, long refcon);
  1246.  
  1247. #if GENERATINGCFM
  1248. typedef UniversalProcPtr SCModalFilterUPP;
  1249. typedef UniversalProcPtr SCModalHookUPP;
  1250. #else
  1251. typedef SCModalFilterProcPtr SCModalFilterUPP;
  1252. typedef SCModalHookProcPtr SCModalHookUPP;
  1253. #endif
  1254.  
  1255. enum {
  1256.     scListEveryCodec            = 1L << 1,
  1257.     scAllowZeroFrameRate        = 1L << 2,
  1258.     scAllowZeroKeyFrameRate        = 1L << 3,
  1259.     scShowBestDepth                = 1L << 4,
  1260.     scUseMovableModal            = 1L << 5
  1261. };
  1262.  
  1263. /*    Possible test flags for setting test image.*/
  1264. enum {
  1265.     scPreferCropping            = 1 << 0,
  1266.     scPreferScaling                = 1 << 1,
  1267.     scPreferScalingAndCropping    = scPreferScaling | scPreferCropping
  1268. };
  1269.  
  1270. /*    Dimensions of the image preview box.*/
  1271. enum {
  1272.     scTestImageWidth            = 80,
  1273.     scTestImageHeight            = 80
  1274. };
  1275.  
  1276. /*    Possible items returned by hookProc.*/
  1277. enum {
  1278.     scOKItem                    = 1,
  1279.     scCancelItem                = 2,
  1280.     scCustomItem                = 3
  1281. };
  1282.  
  1283. /*    Result returned when user cancelled.*/
  1284. enum {
  1285.     scUserCancelled                = 1
  1286. };
  1287.  
  1288. enum {
  1289.     scPositionRect                = 2,
  1290.     scPositionDialog            = 3,
  1291.     scSetTestImagePictHandle    = 4,
  1292.     scSetTestImagePictFile        = 5,
  1293.     scSetTestImagePixMap        = 6,
  1294.     scGetBestDeviceRect            = 7,
  1295.     scRequestImageSettings        = 10,
  1296.     scCompressImage                = 11,
  1297.     scCompressPicture            = 12,
  1298.     scCompressPictureFile        = 13,
  1299.     scRequestSequenceSettings    = 14,
  1300.     scCompressSequenceBegin        = 15,
  1301.     scCompressSequenceFrame        = 16,
  1302.     scCompressSequenceEnd        = 17,
  1303.     scDefaultPictHandleSettings    = 18,
  1304.     scDefaultPictFileSettings    = 19,
  1305.     scDefaultPixMapSettings        = 20,
  1306.     scGetInfo                    = 21,
  1307.     scSetInfo                    = 22,
  1308.     scNewGWorld                    = 23
  1309. };
  1310.  
  1311. struct SCSpatialSettings {
  1312.     CodecType                        codecType;
  1313.     CodecComponent                    codec;
  1314.     short                            depth;
  1315.     CodecQ                            spatialQuality;
  1316. };
  1317. typedef struct SCSpatialSettings SCSpatialSettings;
  1318.  
  1319. struct SCTemporalSettings {
  1320.     CodecQ                            temporalQuality;
  1321.     Fixed                            frameRate;
  1322.     long                            keyFrameRate;
  1323. };
  1324. typedef struct SCTemporalSettings SCTemporalSettings;
  1325.  
  1326. struct SCDataRateSettings {
  1327.     long                            dataRate;
  1328.     long                            frameDuration;
  1329.     CodecQ                            minSpatialQuality;
  1330.     CodecQ                            minTemporalQuality;
  1331. };
  1332. typedef struct SCDataRateSettings SCDataRateSettings;
  1333.  
  1334. struct SCExtendedProcs {
  1335.     SCModalFilterUPP                filterProc;
  1336.     SCModalHookUPP                    hookProc;
  1337.     long                            refcon;
  1338.     Str31                            customName;
  1339. };
  1340. typedef struct SCExtendedProcs SCExtendedProcs;
  1341.  
  1342. /*    Get/SetInfo selectors*/
  1343.  
  1344. enum {
  1345.     scSpatialSettingsType        = 'sptl',                        /* pointer to SCSpatialSettings struct*/
  1346.     scTemporalSettingsType        = 'tprl',                        /* pointer to SCTemporalSettings struct*/
  1347.     scDataRateSettingsType        = 'drat',                        /* pointer to SCDataRateSettings struct*/
  1348.     scColorTableType            = 'clut',                        /* pointer to CTabHandle*/
  1349.     scProgressProcType            = 'prog',                        /* pointer to ProgressRecord struct*/
  1350.     scExtendedProcsType            = 'xprc',                        /* pointer to SCExtendedProcs struct*/
  1351.     scPreferenceFlagsType        = 'pref',                        /* pointer to long*/
  1352.     scSettingsStateType            = 'ssta',                        /* pointer to Handle*/
  1353.     scSequenceIDType            = 'sequ',                        /* pointer to ImageSequence*/
  1354.     scWindowPositionType        = 'wndw',                        /* pointer to Point*/
  1355.     scCodecFlagsType            = 'cflg',                        /* pointer to CodecFlags*/
  1356.     scCodecSettingsType            = 'cdec',                        /* pointer to Handle*/
  1357.     scForceKeyValueType            = 'ksim'
  1358. };
  1359.  
  1360. /*    scTypeNotFoundErr returned by Get/SetInfo when type cannot be found.*/
  1361. /** These are Progress procedures **/
  1362. extern pascal ComponentResult SCPositionRect(ComponentInstance ci, Rect *rp, Point *where)
  1363.  FIVEWORDINLINE(0x2F3C, 0x8, 0x2, 0x7000, 0xA82A);
  1364. extern pascal ComponentResult SCPositionDialog(ComponentInstance ci, short id, Point *where)
  1365.  FIVEWORDINLINE(0x2F3C, 0x6, 0x3, 0x7000, 0xA82A);
  1366. extern pascal ComponentResult SCSetTestImagePictHandle(ComponentInstance ci, PicHandle testPict, Rect *testRect, short testFlags)
  1367.  FIVEWORDINLINE(0x2F3C, 0xA, 0x4, 0x7000, 0xA82A);
  1368. extern pascal ComponentResult SCSetTestImagePictFile(ComponentInstance ci, short testFileRef, Rect *testRect, short testFlags)
  1369.  FIVEWORDINLINE(0x2F3C, 0x8, 0x5, 0x7000, 0xA82A);
  1370. extern pascal ComponentResult SCSetTestImagePixMap(ComponentInstance ci, PixMapHandle testPixMap, Rect *testRect, short testFlags)
  1371.  FIVEWORDINLINE(0x2F3C, 0xA, 0x6, 0x7000, 0xA82A);
  1372. extern pascal ComponentResult SCGetBestDeviceRect(ComponentInstance ci, Rect *r)
  1373.  FIVEWORDINLINE(0x2F3C, 0x4, 0x7, 0x7000, 0xA82A);
  1374. extern pascal ComponentResult SCRequestImageSettings(ComponentInstance ci)
  1375.  FIVEWORDINLINE(0x2F3C, 0, 0xA, 0x7000, 0xA82A);
  1376. extern pascal ComponentResult SCCompressImage(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc, Handle *data)
  1377.  FIVEWORDINLINE(0x2F3C, 0x10, 0xB, 0x7000, 0xA82A);
  1378. extern pascal ComponentResult SCCompressPicture(ComponentInstance ci, PicHandle srcPicture, PicHandle dstPicture)
  1379.  FIVEWORDINLINE(0x2F3C, 0x8, 0xC, 0x7000, 0xA82A);
  1380. extern pascal ComponentResult SCCompressPictureFile(ComponentInstance ci, short srcRefNum, short dstRefNum)
  1381.  FIVEWORDINLINE(0x2F3C, 0x4, 0xD, 0x7000, 0xA82A);
  1382. extern pascal ComponentResult SCRequestSequenceSettings(ComponentInstance ci)
  1383.  FIVEWORDINLINE(0x2F3C, 0, 0xE, 0x7000, 0xA82A);
  1384. extern pascal ComponentResult SCCompressSequenceBegin(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc)
  1385.  FIVEWORDINLINE(0x2F3C, 0xC, 0xF, 0x7000, 0xA82A);
  1386. extern pascal ComponentResult SCCompressSequenceFrame(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, Handle *data, long *dataSize, short *notSyncFlag)
  1387.  FIVEWORDINLINE(0x2F3C, 0x14, 0x10, 0x7000, 0xA82A);
  1388. extern pascal ComponentResult SCCompressSequenceEnd(ComponentInstance ci)
  1389.  FIVEWORDINLINE(0x2F3C, 0, 0x11, 0x7000, 0xA82A);
  1390. extern pascal ComponentResult SCDefaultPictHandleSettings(ComponentInstance ci, PicHandle srcPicture, short motion)
  1391.  FIVEWORDINLINE(0x2F3C, 0x6, 0x12, 0x7000, 0xA82A);
  1392. extern pascal ComponentResult SCDefaultPictFileSettings(ComponentInstance ci, short srcRef, short motion)
  1393.  FIVEWORDINLINE(0x2F3C, 0x4, 0x13, 0x7000, 0xA82A);
  1394. extern pascal ComponentResult SCDefaultPixMapSettings(ComponentInstance ci, PixMapHandle src, short motion)
  1395.  FIVEWORDINLINE(0x2F3C, 0x6, 0x14, 0x7000, 0xA82A);
  1396. extern pascal ComponentResult SCGetInfo(ComponentInstance ci, OSType infoType, void *info)
  1397.  FIVEWORDINLINE(0x2F3C, 0x8, 0x15, 0x7000, 0xA82A);
  1398. extern pascal ComponentResult SCSetInfo(ComponentInstance ci, OSType infoType, void *info)
  1399.  FIVEWORDINLINE(0x2F3C, 0x8, 0x16, 0x7000, 0xA82A);
  1400. extern pascal ComponentResult SCNewGWorld(ComponentInstance ci, GWorldPtr *gwp, Rect *rp, GWorldFlags flags)
  1401.  FIVEWORDINLINE(0x2F3C, 0xC, 0x17, 0x7000, 0xA82A);
  1402. extern pascal ComponentResult SCSetCompressFlags(ComponentInstance ci, long flags)
  1403.  FIVEWORDINLINE(0x2F3C, 0x4, 0x18, 0x7000, 0xA82A);
  1404. extern pascal ComponentResult SCGetCompressFlags(ComponentInstance ci, long *flags)
  1405.  FIVEWORDINLINE(0x2F3C, 0x4, 0x19, 0x7000, 0xA82A);
  1406. struct SCParams {
  1407.     long                            flags;
  1408.     CodecType                        theCodecType;
  1409.     CodecComponent                    theCodec;
  1410.     CodecQ                            spatialQuality;
  1411.     CodecQ                            temporalQuality;
  1412.     short                            depth;
  1413.     Fixed                            frameRate;
  1414.     long                            keyFrameRate;
  1415.     long                            reserved1;
  1416.     long                            reserved2;
  1417. };
  1418. typedef struct SCParams SCParams;
  1419.  
  1420.  
  1421. enum {
  1422.     scGetCompression            = 1,
  1423.     scShowMotionSettings        = 1L << 0,
  1424.     scSettingsChangedItem        = -1
  1425. };
  1426.  
  1427. enum {
  1428.     scCompressFlagIgnoreIdenticalFrames = 1
  1429. };
  1430.  
  1431. extern pascal ComponentResult SCGetCompressionExtended(ComponentInstance ci, SCParams *params, Point where, SCModalFilterUPP filterProc, SCModalHookUPP hookProc, long refcon, StringPtr customName)
  1432.  FIVEWORDINLINE(0x2F3C, 0x18, 0x1, 0x7000, 0xA82A);
  1433. #define SCGetCompression(ci, params, where) SCGetCompressionExtended(ci,params,where,0,0,0,0)
  1434.  
  1435. enum {
  1436.     kSCPositionRectSelect        = 0x2,
  1437.     kSCPositionDialogSelect        = 0x3,
  1438.     kSCSetTestImagePictHandleSelect = 0x4,
  1439.     kSCSetTestImagePictFileSelect = 0x5,
  1440.     kSCSetTestImagePixMapSelect    = 0x6,
  1441.     kSCGetBestDeviceRectSelect    = 0x7,
  1442.     kSCRequestImageSettingsSelect = 0xA,
  1443.     kSCCompressImageSelect        = 0xB,
  1444.     kSCCompressPictureSelect    = 0xC,
  1445.     kSCCompressPictureFileSelect = 0xD,
  1446.     kSCRequestSequenceSettingsSelect = 0xE,
  1447.     kSCCompressSequenceBeginSelect = 0xF,
  1448.     kSCCompressSequenceFrameSelect = 0x10,
  1449.     kSCCompressSequenceEndSelect = 0x11,
  1450.     kSCDefaultPictHandleSettingsSelect = 0x12,
  1451.     kSCDefaultPictFileSettingsSelect = 0x13,
  1452.     kSCDefaultPixMapSettingsSelect = 0x14,
  1453.     kSCGetInfoSelect            = 0x15,
  1454.     kSCSetInfoSelect            = 0x16,
  1455.     kSCNewGWorldSelect            = 0x17,
  1456.     kSCSetCompressFlagsSelect    = 0x18,
  1457.     kSCGetCompressFlagsSelect    = 0x19,
  1458.     kSCGetCompressionExtendedSelect = 0x1
  1459. };
  1460.  
  1461. typedef ComponentInstance MovieImportComponent, MovieExportComponent;
  1462.  
  1463.  
  1464. enum {
  1465.     MovieImportType                = 'eat ',
  1466.     MovieExportType                = 'spit'
  1467. };
  1468.  
  1469. enum {
  1470.     canMovieImportHandles        = 1 << 0,
  1471.     canMovieImportFiles            = 1 << 1,
  1472.     hasMovieImportUserInterface    = 1 << 2,
  1473.     canMovieExportHandles        = 1 << 3,
  1474.     canMovieExportFiles            = 1 << 4,
  1475.     hasMovieExportUserInterface    = 1 << 5,
  1476.     dontAutoFileMovieImport        = 1 << 6,
  1477.     canMovieExportAuxDataHandle    = 1 << 7,
  1478.     canMovieImportValidateHandles = 1 << 8,
  1479.     canMovieImportValidateFile    = 1 << 9,
  1480.     dontRegisterWithEasyOpen    = 1 << 10,
  1481.     canMovieImportInPlace        = 1 << 11,
  1482.     movieImportSubTypeIsFileExtension = 1 << 12
  1483. };
  1484.  
  1485. enum {
  1486.     kMovieImportExportOpenSelect = kComponentOpenSelect,
  1487.     kMovieImportExportCloseSelect = kComponentCloseSelect,
  1488.     kMovieImportExportCanDoSelect = kComponentCanDoSelect,
  1489.     kMovieImportExportVersionSelect = kComponentVersionSelect,
  1490.     kMovieImportHandleSelect    = 1,
  1491.     kMovieImportFileSelect        = 2,
  1492.     kMovieImportSetSampleDurationSelect = 3,
  1493.     kMovieImportSetSampleDescriptionSelect = 4,
  1494.     kMovieImportSetMediaFileSelect = 5,
  1495.     kMovieImportSetDimensionsSelect = 6,
  1496.     kMovieImportSetChunkSizeSelect = 7,
  1497.     kMovieImportSetProgressProcSelect = 8,
  1498.     kMovieImportSetAuxiliaryDataSelect = 9,
  1499.     kMovieImportSetFromScrapSelect = 10,
  1500.     kMovieImportDoUserDialogSelect = 11,
  1501.     kMovieImportSetDurationSelect = 12,
  1502.     kMovieImportGetAuxiliaryDataTypeSelect = 13,
  1503.     kMovieImportValidateSelect    = 14,
  1504.     kMovieImportGetFileTypeSelect = 15,
  1505.     kMovieExportToHandleSelect    = 128,
  1506.     kMovieExportToFileSelect    = 129,
  1507.     kMovieExportDoUserDialogSelectOBSOLETE = 130,
  1508.     kMovieExportGetAuxiliaryDataSelect = 131,
  1509.     kMovieExportSetProgressProcSelect = 132,
  1510.     kMovieExportSetSampleDescriptionSelect = 133,
  1511.     kMovieExportDoUserDialogSelect = 134,
  1512.     kMovieExportGetCreatorTypeSelect = 135
  1513. };
  1514.  
  1515. enum {
  1516.     movieImportCreateTrack        = 1,
  1517.     movieImportInParallel        = 2,
  1518.     movieImportMustUseTrack        = 4
  1519. };
  1520.  
  1521. enum {
  1522.     movieImportResultUsedMultipleTracks = 8
  1523. };
  1524.  
  1525. extern pascal ComponentResult MovieImportHandle(MovieImportComponent ci, Handle dataH, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1526.  FIVEWORDINLINE(0x2F3C, 0x20, 0x1, 0x7000, 0xA82A);
  1527. extern pascal ComponentResult MovieImportFile(MovieImportComponent ci, const FSSpec *theFile, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1528.  FIVEWORDINLINE(0x2F3C, 0x20, 0x2, 0x7000, 0xA82A);
  1529. extern pascal ComponentResult MovieImportSetSampleDuration(MovieImportComponent ci, TimeValue duration, TimeScale scale)
  1530.  FIVEWORDINLINE(0x2F3C, 0x8, 0x3, 0x7000, 0xA82A);
  1531. extern pascal ComponentResult MovieImportSetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1532.  FIVEWORDINLINE(0x2F3C, 0x8, 0x4, 0x7000, 0xA82A);
  1533. extern pascal ComponentResult MovieImportSetMediaFile(MovieImportComponent ci, AliasHandle alias)
  1534.  FIVEWORDINLINE(0x2F3C, 0x4, 0x5, 0x7000, 0xA82A);
  1535. extern pascal ComponentResult MovieImportSetDimensions(MovieImportComponent ci, Fixed width, Fixed height)
  1536.  FIVEWORDINLINE(0x2F3C, 0x8, 0x6, 0x7000, 0xA82A);
  1537. extern pascal ComponentResult MovieImportSetChunkSize(MovieImportComponent ci, long chunkSize)
  1538.  FIVEWORDINLINE(0x2F3C, 0x4, 0x7, 0x7000, 0xA82A);
  1539. extern pascal ComponentResult MovieImportSetProgressProc(MovieImportComponent ci, MovieProgressUPP proc, long refcon)
  1540.  FIVEWORDINLINE(0x2F3C, 0x8, 0x8, 0x7000, 0xA82A);
  1541. extern pascal ComponentResult MovieImportSetAuxiliaryData(MovieImportComponent ci, Handle data, OSType handleType)
  1542.  FIVEWORDINLINE(0x2F3C, 0x8, 0x9, 0x7000, 0xA82A);
  1543. extern pascal ComponentResult MovieImportSetFromScrap(MovieImportComponent ci, Boolean fromScrap)
  1544.  FIVEWORDINLINE(0x2F3C, 0x2, 0xA, 0x7000, 0xA82A);
  1545. extern pascal ComponentResult MovieImportDoUserDialog(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *canceled)
  1546.  FIVEWORDINLINE(0x2F3C, 0xC, 0xB, 0x7000, 0xA82A);
  1547. extern pascal ComponentResult MovieImportSetDuration(MovieImportComponent ci, TimeValue duration)
  1548.  FIVEWORDINLINE(0x2F3C, 0x4, 0xC, 0x7000, 0xA82A);
  1549. extern pascal ComponentResult MovieImportGetAuxiliaryDataType(MovieImportComponent ci, OSType *auxType)
  1550.  FIVEWORDINLINE(0x2F3C, 0x4, 0xD, 0x7000, 0xA82A);
  1551. extern pascal ComponentResult MovieImportValidate(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *valid)
  1552.  FIVEWORDINLINE(0x2F3C, 0xC, 0xE, 0x7000, 0xA82A);
  1553. extern pascal ComponentResult MovieImportGetFileType(MovieImportComponent ci, OSType *fileType)
  1554.  FIVEWORDINLINE(0x2F3C, 0x4, 0xF, 0x7000, 0xA82A);
  1555. extern pascal ComponentResult MovieExportToHandle(MovieExportComponent ci, Handle dataH, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1556.  FIVEWORDINLINE(0x2F3C, 0x14, 0x80, 0x7000, 0xA82A);
  1557. extern pascal ComponentResult MovieExportToFile(MovieExportComponent ci, const FSSpec *theFile, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1558.  FIVEWORDINLINE(0x2F3C, 0x14, 0x81, 0x7000, 0xA82A);
  1559. extern pascal ComponentResult MovieExportGetAuxiliaryData(MovieExportComponent ci, Handle dataH, OSType *handleType)
  1560.  FIVEWORDINLINE(0x2F3C, 0x8, 0x83, 0x7000, 0xA82A);
  1561. extern pascal ComponentResult MovieExportSetProgressProc(MovieExportComponent ci, MovieProgressUPP proc, long refcon)
  1562.  FIVEWORDINLINE(0x2F3C, 0x8, 0x84, 0x7000, 0xA82A);
  1563. extern pascal ComponentResult MovieExportSetSampleDescription(MovieExportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1564.  FIVEWORDINLINE(0x2F3C, 0x8, 0x85, 0x7000, 0xA82A);
  1565. extern pascal ComponentResult MovieExportDoUserDialog(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration, Boolean *canceled)
  1566.  FIVEWORDINLINE(0x2F3C, 0x14, 0x86, 0x7000, 0xA82A);
  1567. extern pascal ComponentResult MovieExportGetCreatorType(MovieExportComponent ci, OSType *creator)
  1568.  FIVEWORDINLINE(0x2F3C, 0x4, 0x87, 0x7000, 0xA82A);
  1569. /* Text Export Display Info data structure*/
  1570. struct TextDisplayData {
  1571.     long                            displayFlags;
  1572.     long                            textJustification;
  1573.     RGBColor                        bgColor;
  1574.     Rect                            textBox;
  1575.     short                            beginHilite;
  1576.     short                            endHilite;
  1577.     RGBColor                        hiliteColor;
  1578.     Boolean                            doHiliteColor;
  1579.     SInt8                            filler;
  1580.     TimeValue                        scrollDelayDur;
  1581.     Point                            dropShadowOffset;
  1582.     short                            dropShadowTransparency;
  1583. };
  1584. typedef struct TextDisplayData TextDisplayData;
  1585.  
  1586. typedef ComponentInstance TextExportComponent;
  1587.  
  1588. extern pascal ComponentResult TextExportGetDisplayData(TextExportComponent ci, TextDisplayData *textDisplay)
  1589.  FIVEWORDINLINE(0x2F3C, 0x4, 0x100, 0x7000, 0xA82A);
  1590. /***************
  1591.  
  1592.     File Preview Components
  1593.  
  1594. ***************/
  1595. typedef ComponentInstance pnotComponent;
  1596.  
  1597.  
  1598. enum {
  1599.     pnotComponentWantsEvents    = 1,
  1600.     pnotComponentNeedsNoCache    = 2
  1601. };
  1602.  
  1603. enum {
  1604.     kPreviewOpenSelector        = 0,
  1605.     kPreviewCloseSelector        = -1,
  1606.     kPreviewCanDoSelector        = -2,
  1607.     kPreviewVersionSelector        = -3,
  1608.     kPreviewShowDataSelector    = 1,
  1609.     kPreviewMakePreviewSelector    = 2,
  1610.     kPreviewMakePreviewReferenceSelector = 3,
  1611.     kPreviewEventSelector        = 4
  1612. };
  1613.  
  1614. enum {
  1615.     ShowFilePreviewComponentType = 'pnot',
  1616.     CreateFilePreviewComponentType = 'pmak'
  1617. };
  1618.  
  1619. extern pascal ComponentResult PreviewShowData(pnotComponent p, OSType dataType, Handle data, const Rect *inHere)
  1620.  FIVEWORDINLINE(0x2F3C, 0xC, 0x1, 0x7000, 0xA82A);
  1621. extern pascal ComponentResult PreviewMakePreview(pnotComponent p, OSType *previewType, Handle *previewResult, const FSSpec *sourceFile, ICMProgressProcRecordPtr progress)
  1622.  FIVEWORDINLINE(0x2F3C, 0x10, 0x2, 0x7000, 0xA82A);
  1623. extern pascal ComponentResult PreviewMakePreviewReference(pnotComponent p, OSType *previewType, short *resID, const FSSpec *sourceFile)
  1624.  FIVEWORDINLINE(0x2F3C, 0xC, 0x3, 0x7000, 0xA82A);
  1625. extern pascal ComponentResult PreviewEvent(pnotComponent p, EventRecord *e, Boolean *handledEvent)
  1626.  FIVEWORDINLINE(0x2F3C, 0x8, 0x4, 0x7000, 0xA82A);
  1627. typedef pascal void (*DataHCompletionProcPtr)(Ptr request, long refcon, OSErr err);
  1628.  
  1629. #if GENERATINGCFM
  1630. typedef UniversalProcPtr DataHCompletionUPP;
  1631. #else
  1632. typedef DataHCompletionProcPtr DataHCompletionUPP;
  1633. #endif
  1634.  
  1635.  
  1636. enum {
  1637.     kDataHCanRead                = 1L << 0,
  1638.     kDataHSpecialRead            = 1L << 1,
  1639.     kDataHSpecialReadFile        = 1L << 2,
  1640.     kDataHCanWrite                = 1L << 3,
  1641.     kDataHSpecialWrite            = 1 << 4,
  1642.     kDataHSpecialWriteFile        = 1 << 5,
  1643.     kDataHCanStreamingWrite        = 1 << 6,
  1644.     kDataHMustCheckDataRef        = 1 << 7
  1645. };
  1646.  
  1647. struct DataHVolumeListRecord {
  1648.     short                            vRefNum;
  1649.     long                            flags;
  1650. };
  1651. typedef struct DataHVolumeListRecord DataHVolumeListRecord;
  1652.  
  1653. typedef DataHVolumeListRecord *DataHVolumeListPtr;
  1654.  
  1655. typedef DataHVolumeListPtr *DataHVolumeList;
  1656.  
  1657.  
  1658. enum {
  1659.     kDataHExtendedSchedule        = 'xtnd'
  1660. };
  1661.  
  1662. struct DataHScheduleRecord {
  1663.     TimeRecord                        timeNeededBy;
  1664.     long                            extendedID;                    /* always is kDataHExtendedSchedule*/
  1665.     long                            extendedVers;                /* always set to 0*/
  1666.     Fixed                            priority;                    /* 100.0 or more means must have. lower numbers…*/
  1667. };
  1668. typedef struct DataHScheduleRecord DataHScheduleRecord;
  1669.  
  1670. typedef DataHScheduleRecord *DataHSchedulePtr;
  1671.  
  1672. extern pascal ComponentResult DataHGetData(DataHandler dh, Handle h, long hOffset, long offset, long size)
  1673.  FIVEWORDINLINE(0x2F3C, 0x10, 0x2, 0x7000, 0xA82A);
  1674. extern pascal ComponentResult DataHPutData(DataHandler dh, Handle h, long hOffset, long *offset, long size)
  1675.  FIVEWORDINLINE(0x2F3C, 0x10, 0x3, 0x7000, 0xA82A);
  1676. extern pascal ComponentResult DataHFlushData(DataHandler dh)
  1677.  FIVEWORDINLINE(0x2F3C, 0, 0x4, 0x7000, 0xA82A);
  1678. extern pascal ComponentResult DataHOpenForWrite(DataHandler dh)
  1679.  FIVEWORDINLINE(0x2F3C, 0, 0x5, 0x7000, 0xA82A);
  1680. extern pascal ComponentResult DataHCloseForWrite(DataHandler dh)
  1681.  FIVEWORDINLINE(0x2F3C, 0, 0x6, 0x7000, 0xA82A);
  1682. extern pascal ComponentResult DataHOpenForRead(DataHandler dh)
  1683.  FIVEWORDINLINE(0x2F3C, 0, 0x8, 0x7000, 0xA82A);
  1684. extern pascal ComponentResult DataHCloseForRead(DataHandler dh)
  1685.  FIVEWORDINLINE(0x2F3C, 0, 0x9, 0x7000, 0xA82A);
  1686. extern pascal ComponentResult DataHSetDataRef(DataHandler dh, Handle dataRef)
  1687.  FIVEWORDINLINE(0x2F3C, 0x4, 0xA, 0x7000, 0xA82A);
  1688. extern pascal ComponentResult DataHGetDataRef(DataHandler dh, Handle *dataRef)
  1689.  FIVEWORDINLINE(0x2F3C, 0x4, 0xB, 0x7000, 0xA82A);
  1690. extern pascal ComponentResult DataHCompareDataRef(DataHandler dh, Handle dataRef, Boolean *equal)
  1691.  FIVEWORDINLINE(0x2F3C, 0x8, 0xC, 0x7000, 0xA82A);
  1692. extern pascal ComponentResult DataHTask(DataHandler dh)
  1693.  FIVEWORDINLINE(0x2F3C, 0, 0xD, 0x7000, 0xA82A);
  1694. extern pascal ComponentResult DataHScheduleData(DataHandler dh, Ptr PlaceToPutDataPtr, long FileOffset, long DataSize, long RefCon, DataHSchedulePtr scheduleRec, DataHCompletionUPP CompletionRtn)
  1695.  FIVEWORDINLINE(0x2F3C, 0x18, 0xE, 0x7000, 0xA82A);
  1696. extern pascal ComponentResult DataHFinishData(DataHandler dh, Ptr PlaceToPutDataPtr, Boolean Cancel)
  1697.  FIVEWORDINLINE(0x2F3C, 0x6, 0xF, 0x7000, 0xA82A);
  1698. extern pascal ComponentResult DataHFlushCache(DataHandler dh)
  1699.  FIVEWORDINLINE(0x2F3C, 0, 0x10, 0x7000, 0xA82A);
  1700. extern pascal ComponentResult DataHResolveDataRef(DataHandler dh, Handle theDataRef, Boolean *wasChanged, Boolean userInterfaceAllowed)
  1701.  FIVEWORDINLINE(0x2F3C, 0xA, 0x11, 0x7000, 0xA82A);
  1702. extern pascal ComponentResult DataHGetFileSize(DataHandler dh, long *fileSize)
  1703.  FIVEWORDINLINE(0x2F3C, 0x4, 0x12, 0x7000, 0xA82A);
  1704. extern pascal ComponentResult DataHCanUseDataRef(DataHandler dh, Handle dataRef, long *useFlags)
  1705.  FIVEWORDINLINE(0x2F3C, 0x8, 0x13, 0x7000, 0xA82A);
  1706. extern pascal ComponentResult DataHGetVolumeList(DataHandler dh, DataHVolumeList *volumeList)
  1707.  FIVEWORDINLINE(0x2F3C, 0x4, 0x14, 0x7000, 0xA82A);
  1708. extern pascal ComponentResult DataHWrite(DataHandler dh, Ptr data, long offset, long size, DataHCompletionUPP completion, long refCon)
  1709.  FIVEWORDINLINE(0x2F3C, 0x14, 0x15, 0x7000, 0xA82A);
  1710. extern pascal ComponentResult DataHPreextend(DataHandler dh, long maxToAdd, long *spaceAdded)
  1711.  FIVEWORDINLINE(0x2F3C, 0x8, 0x16, 0x7000, 0xA82A);
  1712. extern pascal ComponentResult DataHSetFileSize(DataHandler dh, long fileSize)
  1713.  FIVEWORDINLINE(0x2F3C, 0x4, 0x17, 0x7000, 0xA82A);
  1714. extern pascal ComponentResult DataHGetFreeSpace(DataHandler dh, unsigned long *freeSize)
  1715.  FIVEWORDINLINE(0x2F3C, 0x4, 0x18, 0x7000, 0xA82A);
  1716. extern pascal ComponentResult DataHCreateFile(DataHandler dh, OSType creator, Boolean deleteExisting)
  1717.  FIVEWORDINLINE(0x2F3C, 0x6, 0x19, 0x7000, 0xA82A);
  1718. extern pascal ComponentResult DataHGetPreferredBlockSize(DataHandler dh, long *blockSize)
  1719.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1A, 0x7000, 0xA82A);
  1720. extern pascal ComponentResult DataHGetDeviceIndex(DataHandler dh, long *deviceIndex)
  1721.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1B, 0x7000, 0xA82A);
  1722. extern pascal ComponentResult DataHIsStreamingDataHandler(DataHandler dh, Boolean *yes)
  1723.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1C, 0x7000, 0xA82A);
  1724. extern pascal ComponentResult DataHGetDataInBuffer(DataHandler dh, long startOffset, long *size)
  1725.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1D, 0x7000, 0xA82A);
  1726. extern pascal ComponentResult DataHGetScheduleAheadTime(DataHandler dh, long *millisecs)
  1727.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1E, 0x7000, 0xA82A);
  1728. extern pascal ComponentResult DataHSetCacheSizeLimit(DataHandler dh, Size cacheSizeLimit)
  1729.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1F, 0x7000, 0xA82A);
  1730. extern pascal ComponentResult DataHGetCacheSizeLimit(DataHandler dh, Size *cacheSizeLimit)
  1731.  FIVEWORDINLINE(0x2F3C, 0x4, 0x20, 0x7000, 0xA82A);
  1732. extern pascal ComponentResult DataHPlaybackHints(DataHandler dh, long flags, unsigned long minFileOffset, unsigned long maxFileOffset, long bytesPerSecond)
  1733.  FIVEWORDINLINE(0x2F3C, 0x10, 0x103, 0x7000, 0xA82A);
  1734.  
  1735. enum {
  1736.     kDataHGetDataSelect            = 0x2,
  1737.     kDataHPutDataSelect            = 0x3,
  1738.     kDataHFlushDataSelect        = 0x4,
  1739.     kDataHOpenForWriteSelect    = 0x5,
  1740.     kDataHCloseForWriteSelect    = 0x6,
  1741.     kDataHOpenForReadSelect        = 0x8,
  1742.     kDataHCloseForReadSelect    = 0x9,
  1743.     kDataHSetDataRefSelect        = 0xA,
  1744.     kDataHGetDataRefSelect        = 0xB,
  1745.     kDataHCompareDataRefSelect    = 0xC,
  1746.     kDataHTaskSelect            = 0xD,
  1747.     kDataHScheduleDataSelect    = 0xE,
  1748.     kDataHFinishDataSelect        = 0xF,
  1749.     kDataHFlushCacheSelect        = 0x10,
  1750.     kDataHResolveDataRefSelect    = 0x11,
  1751.     kDataHGetFileSizeSelect        = 0x12,
  1752.     kDataHCanUseDataRefSelect    = 0x13,
  1753.     kDataHGetVolumeListSelect    = 0x14,
  1754.     kDataHWriteSelect            = 0x15,
  1755.     kDataHPreextendSelect        = 0x16,
  1756.     kDataHSetFileSizeSelect        = 0x17,
  1757.     kDataHGetFreeSpaceSelect    = 0x18,
  1758.     kDataHCreateFileSelect        = 0x19,
  1759.     kDataHGetPreferredBlockSizeSelect = 0x1A,
  1760.     kDataHGetDeviceIndexSelect    = 0x1B,
  1761.     kDataHIsStreamingDataHandlerSelect = 0x1C,
  1762.     kDataHGetDataInBufferSelect    = 0x1D,
  1763.     kDataHGetScheduleAheadTimeSelect = 0x1E,
  1764.     kDataHSetCacheSizeLimitSelect = 0x1F,
  1765.     kDataHGetCacheSizeLimitSelect = 0x20,
  1766.     kDataHPlaybackHintsSelect    = 0x103
  1767. };
  1768.  
  1769. enum {
  1770.     kMusicComponentType            = 'musi'
  1771. };
  1772.  
  1773. typedef ComponentInstance MusicComponent;
  1774.  
  1775. /* MusicSynthesizerFlags*/
  1776.  
  1777. enum {
  1778.     kSynthesizerDynamicVoice    = 1,                            /* can reassign voices/channels (else, hogs all channels in mask */
  1779.     kSynthesizerUsesMIDIPort    = 2,                            /* must be patched through MIDI Manager */
  1780.     kSynthesizerMicrotone        = 4,                            /* can play microtonal scales */
  1781.     kSynthesizerLimitedMicrotone = 8,                            /* can play microtones, but only on 1-voice parts */
  1782.     kSynthesizerMixedDrums        = 16,                            /* any part can play drum parts, total = instrument parts */
  1783.     kSynthesizerSoftware        = 32,                            /* implemented in main CPU software == uses cpu cycles */
  1784.     kSynthesizerGMSuperset        = 8192,
  1785.     kSynthesizerGM                = 16384                            /* synth is a GM device */
  1786. };
  1787.  
  1788. /*
  1789.  * Note that these controller numbers
  1790.  * are _not_ identical to the MIDI controller numbers.
  1791.  * These are _signed_ 8.8 values, and the LSB's are
  1792.  * always sent to a MIDI device. Controllers 32-63 are
  1793.  * reserved (for MIDI, they are LSB's for 0-31, but we
  1794.  * always send both).
  1795.  *
  1796.  * The full range, therefore, is -128.00 to 127.7f.
  1797.  *
  1798.  * _Excepting_ _volume_, all controls default to zero.
  1799.  *
  1800.  * Pitch bend is specified in fractional semitones! No
  1801.  * more "pitch bend range" nonsense. You can bend as far
  1802.  * as you want, any time you want.
  1803.  */
  1804. enum MusicControllers {
  1805.     kControllerModulationWheel    = 1,
  1806.     kControllerBreath            = 2,
  1807.     kControllerFoot                = 4,
  1808.     kControllerPortamentoTime    = 5,
  1809.     kControllerVolume            = 7,
  1810.     kControllerBalance            = 8,
  1811.     kControllerPan                = 10,                            /* 0 - "default", 1 - n: positioned in output 1-n (incl fractions) */
  1812.     kControllerExpression        = 11,
  1813.     kControllerPitchBend        = 32,                            /* positive & negative semitones, with 7 bits fraction */
  1814.     kControllerAfterTouch        = 33,
  1815.     kControllerSustain            = 64,                            /* boolean - positive for on, 0 or negative off */
  1816.     kControllerPortamento        = 65,                            /* boolean */
  1817.     kControllerSostenuto        = 66,                            /* boolean */
  1818.     kControllerSoftPedal        = 67,                            /* boolean */
  1819.     kControllerReverb            = 91,
  1820.     kControllerTremolo            = 92,
  1821.     kControllerChorus            = 93,
  1822.     kControllerCeleste            = 94,
  1823.     kControllerPhaser            = 95
  1824. };
  1825.  
  1826. enum {
  1827.     kControllerMaximum            = 0x7FFF,                        /* +01111111.11111111 */
  1828.     kControllerMinimum            = 0x8000                        /* -10000000.00000000 */
  1829. };
  1830.  
  1831. struct SynthesizerDescription {
  1832.     OSType                            synthesizerType;            /* synthesizer type (must be same as component subtype) */
  1833.     Str31                            name;                        /* text name of synthesizer type */
  1834.     unsigned long                    flags;                        /* from the above enum */
  1835.     unsigned long                    voiceCount;                    /* maximum polyphony */
  1836.     unsigned long                    partCount;                    /* maximum multi-timbrality (and midi channels) */
  1837.     unsigned long                    instrumentCount;            /* non gm, built in (rom) instruments only */
  1838.     unsigned long                    modifiableInstrumentCount;    /* plus n-more are user modifiable */
  1839.     unsigned long                    channelMask;                /* (midi device only) which channels device always uses */
  1840.     unsigned long                    drumPartCount;                /* maximum multi-timbrality of drum parts */
  1841.     unsigned long                    drumCount;                    /* non gm, built in (rom) drumkits only */
  1842.     unsigned long                    modifiableDrumCount;        /* plus n-more are user modifiable */
  1843.     unsigned long                    drumChannelMask;            /* (midi device only) which channels device always uses */
  1844.     unsigned long                    outputCount;                /* number of audio outputs (usually two) */
  1845.     unsigned long                    latency;                    /* response time in µSec */
  1846.     unsigned long                    controllers[4];                /* array of 128 bits */
  1847.     unsigned long                    gmInstruments[4];            /* array of 128 bits */
  1848.     unsigned long                    gmDrums[4];                    /* array of 128 bits */
  1849. };
  1850. typedef struct SynthesizerDescription SynthesizerDescription;
  1851.  
  1852.  
  1853. enum {
  1854.     kVoiceCountDynamic            = -1                            /* constant to use to specify dynamic voicing */
  1855. };
  1856.  
  1857. struct ToneDescription {
  1858.     OSType                            synthesizerType;            /* synthesizer type */
  1859.     Str31                            synthesizerName;            /* name of instantiation of synth */
  1860.     Str31                            instrumentName;                /* preferred name for human use */
  1861.     long                            instrumentNumber;            /* inst-number used if synth-name matches */
  1862.     long                            gmNumber;                    /* Best matching general MIDI number */
  1863. };
  1864. typedef struct ToneDescription ToneDescription;
  1865.  
  1866.  
  1867. enum {
  1868.     kFirstDrumkit                = 16384,                        /* (first value is "no drum". instrument numbers from 16384->16384+128 are drumkits, and for GM they are _defined_ drumkits! */
  1869.     kLastDrumkit                = (kFirstDrumkit + 128)
  1870. };
  1871.  
  1872. /* InstrumentMatch*/
  1873. enum {
  1874.     kInstrumentMatchSynthesizerType = 1,
  1875.     kInstrumentMatchSynthesizerName = 2,
  1876.     kInstrumentMatchName        = 4,
  1877.     kInstrumentMatchNumber        = 8,
  1878.     kInstrumentMatchGMNumber    = 16
  1879. };
  1880.  
  1881. /* KnobFlags*/
  1882. enum {
  1883.     kKnobRealtime                = 1,                            /* Knob can be changed interactively as part of a sequence (ie knob can be changed at interrupt time) */
  1884.     kKnobNextNote                = 2,                            /* Knob only takes effect on the next note played */
  1885.     kKnobAction                    = 4,                            /* setting the knob does something immediate */
  1886.     kKnobNotInstrument            = 8,                            /* indicates that the knob isn't in the instrument handle */
  1887.     kKnobAffectsOthers            = 16,                            /* other knobs will change value from this one */
  1888.     kKnobMinorGroupStart        = 64,                            /* knob is first in some logical subgroup of knobs */
  1889.     kKnobGroupStart                = 128,                            /* knob is first in some logical group of knobs */
  1890. /* One of these may be used at a time. */
  1891.     kKnobTypeNumber                = 0 << 12,
  1892.     kKnobTypeBoolean            = 1 << 12,
  1893.     kKnobTypeNote                = 2 << 12,
  1894.     kKnobTypePan                = 3 << 12,
  1895.     kKnobTypeInstrument            = 4 << 12,                        /* knob value = reference to another instrument number */
  1896.     kKnobTypeSetting            = 5 << 12                        /* knob value is 1 of n different things (eg, fm algorithms) */
  1897. };
  1898.  
  1899. enum {
  1900.     kUnknownKnobValue            = 0x7FFFFFFF                    /* a knob with this value means, we don't know it. */
  1901. };
  1902.  
  1903. struct KnobDescription {
  1904.     Str31                            name;
  1905.     long                            lowValue;
  1906.     long                            highValue;
  1907.     long                            defaultValue;                /* a default instrument is made of all default values */
  1908.     long                            flags;
  1909. };
  1910. typedef struct KnobDescription KnobDescription;
  1911.  
  1912. struct InstrumentData {
  1913.     ToneDescription                    tone;
  1914.     long                            knobCount;
  1915.     long                            knob[1];
  1916. };
  1917. typedef struct InstrumentData InstrumentData, **InstrumentDataHandle;
  1918.  
  1919. struct FlatInstrument {
  1920.     ToneDescription                    tone;
  1921.     long                            size;                        /* size in bytes of the following data, including size field (excluding tonedescription) */
  1922.     UInt8                            data[4];
  1923. };
  1924. typedef struct FlatInstrument FlatInstrument;
  1925.  
  1926. struct InstrumentAboutInfo {
  1927.     PicHandle                        p;
  1928.     Str255                            author;
  1929.     Str255                            copyright;
  1930.     Str255                            other;
  1931. };
  1932. typedef struct InstrumentAboutInfo InstrumentAboutInfo;
  1933.  
  1934. struct MusicMIDIPacket {
  1935.     unsigned short                    length;
  1936.     unsigned long                    reserved;
  1937.     UInt8                            data[249];
  1938. };
  1939. typedef struct MusicMIDIPacket MusicMIDIPacket;
  1940.  
  1941. typedef pascal ComponentResult (*MusicMIDISendProcPtr)(MusicComponent self, long refCon, MusicMIDIPacket *mmp);
  1942.  
  1943. #if GENERATINGCFM
  1944. typedef UniversalProcPtr MusicMIDISendUPP;
  1945. #else
  1946. typedef MusicMIDISendProcPtr MusicMIDISendUPP;
  1947. #endif
  1948.  
  1949.  
  1950. enum {
  1951.     kMusicFirstSelect            = 0,
  1952.     kMusicGetDescriptionSelect,
  1953.     kMusicGetPartSelect,
  1954.     kMusicSetPartSelect,
  1955.     kMusicSetInstrumentNumberSelect,
  1956.     kMusicGetInstrumentNumberSelect,
  1957.     kMusicStoreInstrumentSelect,
  1958.     kMusicGetInstrumentSelect,
  1959.     kMusicSetInstrumentSelect,
  1960.     kMusicDummyOne,
  1961.     kMusicDummyTwo,
  1962.     kMusicDummyThree,
  1963.     kMusicDummyFour,
  1964.     kMusicGetInstrumentKnobDescriptionSelect,
  1965.     kMusicGetDrumKnobDescriptionSelect,
  1966.     kMusicGetKnobDescriptionSelect,
  1967.     kMusicGetPartKnobSelect,
  1968.     kMusicSetPartKnobSelect,
  1969.     kMusicGetKnobSelect,
  1970.     kMusicSetKnobSelect,
  1971.     kMusicGetPartNameSelect,
  1972.     kMusicSetPartNameSelect,
  1973.     kMusicFindToneSelect,
  1974.     kMusicPlayNoteSelect,
  1975.     kMusicResetPartSelect,
  1976.     kMusicSetControllerSelect,
  1977.     kMusicGetControllerSelect,
  1978.     kMusicGetMIDIProcSelect,
  1979.     kMusicSetMIDIProcSelect,
  1980.     kMusicGetInstrumentNamesSelect,
  1981.     kMusicGetDrumNamesSelect,
  1982.     kMusicGetMasterTuneSelect,
  1983.     kMusicSetMasterTuneSelect,
  1984.     kMusicSetFlatInstrumentSelect,
  1985.     kMusicGetInstrumentAboutInfoSelect
  1986. };
  1987.  
  1988. enum {
  1989.     notImplementedMusicErr        = (0x80000000 | ((unsigned)(-2100 - 1))),
  1990.     cantSendToSynthesizerErr    = (0x80000000 | ((unsigned)(-2100 - 2))),
  1991.     cantReceiveFromSynthesizerErr = (0x80000000 | ((unsigned)(-2100 - 3))),
  1992.     illegalVoiceAllocationErr    = (0x80000000 | ((unsigned)(-2100 - 4))),
  1993.     illegalPartErr                = (0x80000000 | ((unsigned)(-2100 - 5))),
  1994.     illegalChannelErr            = (0x80000000 | ((unsigned)(-2100 - 6))),
  1995.     illegalKnobErr                = (0x80000000 | ((unsigned)(-2100 - 7))),
  1996.     illegalKnobValueErr            = (0x80000000 | ((unsigned)(-2100 - 8))),
  1997.     illegalInstrumentErr        = (0x80000000 | ((unsigned)(-2100 - 9))),
  1998.     illegalControllerErr        = (0x80000000 | ((unsigned)(-2100 - 10))),
  1999.     midiManagerAbsentErr        = (0x80000000 | ((unsigned)(-2100 - 11))),
  2000.     synthesizerNotRespondingErr    = (0x80000000 | ((unsigned)(-2100 - 12))),
  2001.     synthesizerErr                = (0x80000000 | ((unsigned)(-2100 - 13))),
  2002.     illegalNoteChannelErr        = (0x80000000 | ((unsigned)(-2100 - 14))),
  2003.     noteChannelNotAllocatedErr    = (0x80000000 | ((unsigned)(-2100 - 15))),
  2004.     tunePlayerFullErr            = (0x80000000 | ((unsigned)(-2100 - 16))),
  2005.     tuneParseErr                = (0x80000000 | ((unsigned)(-2100 - 17)))
  2006. };
  2007.  
  2008. enum {
  2009.     kGMType                        = 'gm  '
  2010. };
  2011.  
  2012. /*-----------------------------------------
  2013.     Capabilities and Voice Allocation
  2014. -----------------------------------------*/
  2015. extern pascal ComponentResult MusicGetPart(MusicComponent mc, long part, long *midiChannel, long *polyphony)
  2016.  FIVEWORDINLINE(0x2F3C, 0xC, 0x2, 0x7000, 0xA82A);
  2017. extern pascal ComponentResult MusicSetPart(MusicComponent mc, long part, long midiChannel, long polyphony)
  2018.  FIVEWORDINLINE(0x2F3C, 0xC, 0x3, 0x7000, 0xA82A);
  2019. extern pascal ComponentResult MusicGetDescription(MusicComponent mc, SynthesizerDescription *sd)
  2020.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1, 0x7000, 0xA82A);
  2021. extern pascal ComponentResult MusicGetInstrumentAboutInfo(MusicComponent mc, long part, InstrumentAboutInfo *iai)
  2022.  FIVEWORDINLINE(0x2F3C, 0x8, 0x22, 0x7000, 0xA82A);
  2023. /*-----------------------------------------
  2024.     Instrument Loading and Storing
  2025. -----------------------------------------*/
  2026. extern pascal ComponentResult MusicSetInstrumentNumber(MusicComponent mc, long part, long instrumentNumber)
  2027.  FIVEWORDINLINE(0x2F3C, 0x8, 0x4, 0x7000, 0xA82A);
  2028. extern pascal ComponentResult MusicGetInstrumentNumber(MusicComponent mc, long part)
  2029.  FIVEWORDINLINE(0x2F3C, 0x4, 0x5, 0x7000, 0xA82A);
  2030. extern pascal ComponentResult MusicStoreInstrument(MusicComponent mc, long part, long instrumentNumber)
  2031.  FIVEWORDINLINE(0x2F3C, 0x8, 0x6, 0x7000, 0xA82A);
  2032. extern pascal ComponentResult MusicGetInstrument(MusicComponent mc, long part, InstrumentDataHandle *iH)
  2033.  FIVEWORDINLINE(0x2F3C, 0x8, 0x7, 0x7000, 0xA82A);
  2034. extern pascal ComponentResult MusicSetInstrument(MusicComponent mc, long part, InstrumentDataHandle iH)
  2035.  FIVEWORDINLINE(0x2F3C, 0x8, 0x8, 0x7000, 0xA82A);
  2036. extern pascal ComponentResult MusicSetFlatInstrument(MusicComponent mc, long part, FlatInstrument *flatInstrument)
  2037.  FIVEWORDINLINE(0x2F3C, 0x8, 0x21, 0x7000, 0xA82A);
  2038. /*-----------------------------------------
  2039.     Instrument Knobs
  2040. -----------------------------------------*/
  2041. extern pascal ComponentResult MusicGetInstrumentKnobDescription(MusicComponent mc, long knobNumber, KnobDescription *mkd)
  2042.  FIVEWORDINLINE(0x2F3C, 0x8, 0xD, 0x7000, 0xA82A);
  2043. extern pascal ComponentResult MusicGetDrumKnobDescription(MusicComponent mc, long knobNumber, KnobDescription *mkd)
  2044.  FIVEWORDINLINE(0x2F3C, 0x8, 0xE, 0x7000, 0xA82A);
  2045. extern pascal ComponentResult MusicGetPartKnob(MusicComponent mc, long part, long knobNumber)
  2046.  FIVEWORDINLINE(0x2F3C, 0x8, 0x10, 0x7000, 0xA82A);
  2047. extern pascal ComponentResult MusicSetPartKnob(MusicComponent mc, long part, long knobNumber, long knobValue)
  2048.  FIVEWORDINLINE(0x2F3C, 0xC, 0x11, 0x7000, 0xA82A);
  2049. /*-----------------------------------------
  2050.     Synthesizer Knobs
  2051. -----------------------------------------*/
  2052. extern pascal ComponentResult MusicGetKnobDescription(MusicComponent mc, long knobNumber, KnobDescription *mkd)
  2053.  FIVEWORDINLINE(0x2F3C, 0x8, 0xF, 0x7000, 0xA82A);
  2054. extern pascal ComponentResult MusicGetKnob(MusicComponent mc, long knobNumber)
  2055.  FIVEWORDINLINE(0x2F3C, 0x4, 0x12, 0x7000, 0xA82A);
  2056. extern pascal ComponentResult MusicSetKnob(MusicComponent mc, long knobNumber, long knobValue)
  2057.  FIVEWORDINLINE(0x2F3C, 0x8, 0x13, 0x7000, 0xA82A);
  2058. extern pascal ComponentResult MusicSetMasterTune(MusicComponent mc, Fixed masterTune)
  2059.  FIVEWORDINLINE(0x2F3C, 0x4, 0x20, 0x7000, 0xA82A);
  2060. extern pascal ComponentResult MusicGetMasterTune(MusicComponent mc)
  2061.  FIVEWORDINLINE(0x2F3C, 0, 0x1F, 0x7000, 0xA82A);
  2062. /*-----------------------------------------
  2063.     Names of Instruments
  2064. -----------------------------------------*/
  2065. extern pascal ComponentResult MusicGetPartName(MusicComponent mc, long part, Str31 name)
  2066.  FIVEWORDINLINE(0x2F3C, 0x8, 0x14, 0x7000, 0xA82A);
  2067. extern pascal ComponentResult MusicSetPartName(MusicComponent mc, long part, Str31 name)
  2068.  FIVEWORDINLINE(0x2F3C, 0x8, 0x15, 0x7000, 0xA82A);
  2069. extern pascal ComponentResult MusicFindTone(MusicComponent mc, ToneDescription *td, long *instrumentNumber, unsigned long *fit)
  2070.  FIVEWORDINLINE(0x2F3C, 0xC, 0x16, 0x7000, 0xA82A);
  2071. extern pascal ComponentResult MusicGetInstrumentNames(MusicComponent mc, long modifiableInstruments, Handle *instrumentNames, Handle *instrumentCategoryLasts, Handle *instrumentCategoryNames)
  2072.  FIVEWORDINLINE(0x2F3C, 0x10, 0x1D, 0x7000, 0xA82A);
  2073. extern pascal ComponentResult MusicGetDrumNames(MusicComponent mc, long modifiableInstruments, Handle *instrumentNumbers, Handle *instrumentNames)
  2074.  FIVEWORDINLINE(0x2F3C, 0xC, 0x1E, 0x7000, 0xA82A);
  2075. /*-----------------------------------------
  2076.     Realtime Actions
  2077. -----------------------------------------*/
  2078. extern pascal ComponentResult MusicPlayNote(MusicComponent mc, long part, long pitch, long velocity)
  2079.  FIVEWORDINLINE(0x2F3C, 0xC, 0x17, 0x7000, 0xA82A);
  2080. extern pascal ComponentResult MusicResetPart(MusicComponent mc, long part)
  2081.  FIVEWORDINLINE(0x2F3C, 0x4, 0x18, 0x7000, 0xA82A);
  2082. extern pascal ComponentResult MusicSetController(MusicComponent mc, long part, long controllerNumber, long controllerValue)
  2083.  FIVEWORDINLINE(0x2F3C, 0xC, 0x19, 0x7000, 0xA82A);
  2084. extern pascal ComponentResult MusicGetController(MusicComponent mc, long part, long controllerNumber)
  2085.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1A, 0x7000, 0xA82A);
  2086. /*-----------------------------------------
  2087.     Finding the Hardware
  2088. -----------------------------------------*/
  2089. extern pascal ComponentResult MusicGetMIDIProc(MusicComponent mc, MusicMIDISendUPP *midiSendProc, long *refCon)
  2090.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1B, 0x7000, 0xA82A);
  2091. extern pascal ComponentResult MusicSetMIDIProc(MusicComponent mc, MusicMIDISendUPP midiSendProc, long refCon)
  2092.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1C, 0x7000, 0xA82A);
  2093. /*--------------------------
  2094.     Types
  2095. --------------------------*/
  2096. struct NoteChannelRecord {
  2097.     long                            data[1];
  2098. };
  2099. typedef struct NoteChannelRecord NoteChannelRecord, *NoteChannel;
  2100.  
  2101. struct SynthesizerConnections {
  2102.     OSType                            clientID;
  2103.     OSType                            inputPortID;
  2104.     OSType                            outputPortID;
  2105.     long                            midiChannel;                /* The system channel; others are configurable (or the nubus slot number) */
  2106.     long                            flags;
  2107.     long                            reserved[3];                /* should be zero */
  2108. };
  2109. typedef struct SynthesizerConnections SynthesizerConnections;
  2110.  
  2111. struct NoteRequest {
  2112.     long                            polyphony;                    /* Maximum number of voices */
  2113.     Fixed                            typicalPolyphony;            /* Hint for level mixing */
  2114.     ToneDescription                    tone;
  2115. };
  2116. typedef struct NoteRequest NoteRequest;
  2117.  
  2118.  
  2119. enum {
  2120.     kNAFirstSelector            = -7,
  2121.     kNATargetSelect,
  2122.     kNARegisterSelect,
  2123.     kNAVersionSelect,
  2124.     kNACanDoSelect,
  2125.     kNACloseSelect,
  2126.     kNAOpenSelect,
  2127.     kNARegisterMusicDeviceSelect,
  2128.     kNAUnregisterMusicDeviceSelect,
  2129.     kNAGetRegisteredMusicDeviceSelect,
  2130.     kNASaveMusicConfigurationSelect,
  2131.     kNANewNoteChannelSelect,
  2132.     kNADisposeNoteChannelSelect,
  2133.     kNAGetNoteChannelInfoSelect,
  2134.     kNAPrerollNoteChannelSelect,
  2135.     kNAUnrollNoteChannelSelect,
  2136.     kNAEngageNoteChannelSelect,
  2137.     kNADisengageNoteChannelSelect,
  2138.     kNASetNoteChannelVolumeSelect,
  2139.     kNAResetNoteChannelSelect,
  2140.     kNAPlayNoteSelect,
  2141.     kNASetControllerSelect,
  2142.     kNASetKnobSelect,
  2143.     kNAFindNoteChannelToneSelect,
  2144.     kNASetNoteChannelInstrumentSelect,
  2145.     kNAPickInstrumentSelect,
  2146.     kNAPickArrangementSelect,
  2147.     kNAGetStatusBlockSelect,
  2148.     kNASetDefaultMIDIInputSelect,
  2149.     kNAGetDefaultMIDIInputSelect,
  2150.     kNAGetNoteChannelStateSelect,
  2151.     kNASetNoteChannelStateSelect,
  2152.     kNAUseDefaultMIDIInputSelect,
  2153.     kNALoseDefaultMIDIInputSelect,
  2154.     kNAStuffToneDescriptionSelect,
  2155.     kNACopyrightDialogSelect,
  2156.     kNASetFlatInstrumentSelect,
  2157.     kNASetInstrumentSelect,
  2158.     kNALastSelector
  2159. };
  2160.  
  2161. typedef ComponentInstance NoteAllocator;
  2162.  
  2163.  
  2164. enum {
  2165.     kPickDontMix                = 1,                            /* dont mix instruments with drum sounds */
  2166.     kPickSameSynth                = 2                                /* only allow the same device that went in, to come out */
  2167. };
  2168.  
  2169. typedef pascal ComponentResult (*MusicMIDIReadHookProcPtr)(MusicMIDIPacket *mp, long myRefCon);
  2170.  
  2171. #if GENERATINGCFM
  2172. typedef UniversalProcPtr MusicMIDIReadHookUPP;
  2173. #else
  2174. typedef MusicMIDIReadHookProcPtr MusicMIDIReadHookUPP;
  2175. #endif
  2176.  
  2177. enum {
  2178.     kNoteAllocatorType            = 'nota'
  2179. };
  2180.  
  2181. /*--------------------------------
  2182.     Note Allocator Prototypes
  2183. --------------------------------*/
  2184. /*
  2185.  * System Configuration
  2186.  */
  2187. extern pascal ComponentResult NARegisterMusicDevice(NoteAllocator na, OSType synthType, Str31 name, SynthesizerConnections *connections)
  2188.  FIVEWORDINLINE(0x2F3C, 0xC, 0, 0x7000, 0xA82A);
  2189. extern pascal ComponentResult NAUnregisterMusicDevice(NoteAllocator na, long index)
  2190.  FIVEWORDINLINE(0x2F3C, 0x4, 0x1, 0x7000, 0xA82A);
  2191. extern pascal ComponentResult NAGetRegisteredMusicDevice(NoteAllocator na, long index, OSType *synthType, Str31 name, SynthesizerConnections *connections, MusicComponent *mc)
  2192.  FIVEWORDINLINE(0x2F3C, 0x14, 0x2, 0x7000, 0xA82A);
  2193. extern pascal ComponentResult NASetDefaultMIDIInput(NoteAllocator na, SynthesizerConnections *sc)
  2194.  FIVEWORDINLINE(0x2F3C, 0x4, 0x15, 0x7000, 0xA82A);
  2195. extern pascal ComponentResult NAGetDefaultMIDIInput(NoteAllocator na, SynthesizerConnections *sc)
  2196.  FIVEWORDINLINE(0x2F3C, 0x4, 0x16, 0x7000, 0xA82A);
  2197. extern pascal ComponentResult NASaveMusicConfiguration(NoteAllocator na)
  2198.  FIVEWORDINLINE(0x2F3C, 0, 0x3, 0x7000, 0xA82A);
  2199. /*
  2200.  * Allocation
  2201.  */
  2202. extern pascal ComponentResult NANewNoteChannel(NoteAllocator na, NoteRequest *noteRequest, NoteChannel *outChannel)
  2203.  FIVEWORDINLINE(0x2F3C, 0x8, 0x4, 0x7000, 0xA82A);
  2204. extern pascal ComponentResult NADisposeNoteChannel(NoteAllocator na, NoteChannel noteChannel)
  2205.  FIVEWORDINLINE(0x2F3C, 0x4, 0x5, 0x7000, 0xA82A);
  2206. extern pascal ComponentResult NAGetNoteChannelInfo(NoteAllocator na, NoteChannel noteChannel, long *index, long *part)
  2207.  FIVEWORDINLINE(0x2F3C, 0xC, 0x6, 0x7000, 0xA82A);
  2208. extern pascal ComponentResult NAUseDefaultMIDIInput(NoteAllocator na, MusicMIDIReadHookUPP readHook, long refCon, unsigned long flags)
  2209.  FIVEWORDINLINE(0x2F3C, 0xC, 0x19, 0x7000, 0xA82A);
  2210. extern pascal ComponentResult NALoseDefaultMIDIInput(NoteAllocator na)
  2211.  FIVEWORDINLINE(0x2F3C, 0, 0x1A, 0x7000, 0xA82A);
  2212. /*
  2213.  * Setup
  2214.  */
  2215. extern pascal ComponentResult NAPrerollNoteChannel(NoteAllocator na, NoteChannel noteChannel)
  2216.  FIVEWORDINLINE(0x2F3C, 0x4, 0x7, 0x7000, 0xA82A);
  2217. extern pascal ComponentResult NAUnrollNoteChannel(NoteAllocator na, NoteChannel noteChannel)
  2218.  FIVEWORDINLINE(0x2F3C, 0x4, 0x8, 0x7000, 0xA82A);
  2219. extern pascal ComponentResult NAEngageNoteChannel(NoteAllocator na, NoteChannel noteChannel)
  2220.  FIVEWORDINLINE(0x2F3C, 0x4, 0x9, 0x7000, 0xA82A);
  2221. extern pascal ComponentResult NADisengageNoteChannel(NoteAllocator na, NoteChannel noteChannel, long silenceNotes)
  2222.  FIVEWORDINLINE(0x2F3C, 0x8, 0xA, 0x7000, 0xA82A);
  2223. extern pascal ComponentResult NAGetNoteChannelState(NoteAllocator na, NoteChannel noteChannel, long instrumentNumber, Handle *state)
  2224.  FIVEWORDINLINE(0x2F3C, 0xC, 0x17, 0x7000, 0xA82A);
  2225. extern pascal ComponentResult NASetNoteChannelState(NoteAllocator na, NoteChannel noteChannel, long instrumentNumber, Handle state)
  2226.  FIVEWORDINLINE(0x2F3C, 0xC, 0x18, 0x7000, 0xA82A);
  2227. extern pascal ComponentResult NAResetNoteChannel(NoteAllocator na, NoteChannel noteChannel)
  2228.  FIVEWORDINLINE(0x2F3C, 0x4, 0xC, 0x7000, 0xA82A);
  2229. extern pascal ComponentResult NASetNoteChannelVolume(NoteAllocator na, NoteChannel noteChannel, Fixed volume)
  2230.  FIVEWORDINLINE(0x2F3C, 0x8, 0xB, 0x7000, 0xA82A);
  2231. extern pascal ComponentResult NASetInstrument(NoteAllocator na, NoteChannel noteChannel, InstrumentData *instrumentData)
  2232.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1E, 0x7000, 0xA82A);
  2233. extern pascal ComponentResult NASetFlatInstrument(NoteAllocator na, NoteChannel noteChannel, FlatInstrument *flatInstrument)
  2234.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1D, 0x7000, 0xA82A);
  2235. /*
  2236.  * Control
  2237.  */
  2238. extern pascal ComponentResult NAPlayNote(NoteAllocator na, NoteChannel noteChannel, long pitch, long velocity)
  2239.  FIVEWORDINLINE(0x2F3C, 0xC, 0xD, 0x7000, 0xA82A);
  2240. extern pascal ComponentResult NASetController(NoteAllocator na, NoteChannel noteChannel, long controllerNumber, long controllerValue)
  2241.  FIVEWORDINLINE(0x2F3C, 0xC, 0xE, 0x7000, 0xA82A);
  2242. extern pascal ComponentResult NASetKnob(NoteAllocator na, NoteChannel noteChannel, long knobNumber, long knobValue)
  2243.  FIVEWORDINLINE(0x2F3C, 0xC, 0xF, 0x7000, 0xA82A);
  2244. extern pascal ComponentResult NAFindNoteChannelTone(NoteAllocator na, NoteChannel noteChannel, ToneDescription *td, long *instrumentNumber)
  2245.  FIVEWORDINLINE(0x2F3C, 0xC, 0x10, 0x7000, 0xA82A);
  2246. extern pascal ComponentResult NASetNoteChannelInstrument(NoteAllocator na, NoteChannel noteChannel, long instrumentNumber)
  2247.  FIVEWORDINLINE(0x2F3C, 0x8, 0x11, 0x7000, 0xA82A);
  2248. /*
  2249.  * User Interface
  2250.  */
  2251. extern pascal ComponentResult NAPickInstrument(NoteAllocator na, ModalFilterUPP filterProc, StringPtr prompt, ToneDescription *sd, unsigned long flags, long refCon, Ptr *flatList, long *flatChoiceIndex)
  2252.  FIVEWORDINLINE(0x2F3C, 0x1C, 0x12, 0x7000, 0xA82A);
  2253. extern pascal ComponentResult NAStuffToneDescription(NoteAllocator na, long gmNumber, ToneDescription *td)
  2254.  FIVEWORDINLINE(0x2F3C, 0x8, 0x1B, 0x7000, 0xA82A);
  2255. extern pascal ComponentResult NAPickArrangement(NoteAllocator na, ModalFilterUPP filterProc, StringPtr prompt, long partCount, NoteRequest *noteRequestList, Track t, StringPtr songName)
  2256.  FIVEWORDINLINE(0x2F3C, 0x18, 0x13, 0x7000, 0xA82A);
  2257. extern pascal ComponentResult NACopyrightDialog(NoteAllocator na, PicHandle p, StringPtr author, StringPtr copyright, StringPtr other, StringPtr title, ModalFilterUPP filterProc, long refCon)
  2258.  FIVEWORDINLINE(0x2F3C, 0x1C, 0x1C, 0x7000, 0xA82A);
  2259. /*
  2260.  * Note Allocator interior views
  2261.  */
  2262. struct NAStatPiece {
  2263.     Str31                            clientName;
  2264.     Str31                            synthesizerName;
  2265.     long                            part;
  2266.     long                            midiChannel;
  2267.     long                            polyphony;
  2268.     long                            valid;
  2269. };
  2270. typedef struct NAStatPiece NAStatPiece;
  2271.  
  2272. struct NAStat {
  2273.     long                            pieceCount;
  2274.     NAStatPiece                        piece[64];
  2275. };
  2276. typedef struct NAStat NAStat;
  2277.  
  2278. extern pascal ComponentResult NAGetStatusBlock(NoteAllocator na, NAStat *stat)
  2279.  FIVEWORDINLINE(0x2F3C, 0x4, 0x14, 0x7000, 0xA82A);
  2280. /*--------------------------
  2281.     Types
  2282. --------------------------*/
  2283.  
  2284. enum {
  2285.     kTuneQueueDepth                = 8                                /* Deepest you can queue tune segments */
  2286. };
  2287.  
  2288. struct TuneStatus {
  2289.     unsigned long                    *tune;                        /* currently playing tune */
  2290.     unsigned long                    *tunePtr;                    /* position within currently playing piece */
  2291.     TimeValue                        time;                        /* current tune time */
  2292.     short                            queueCount;                    /* how many pieces queued up? */
  2293.     short                            queueSpots;                    /* How many more tunepieces can be queued */
  2294.     TimeValue                        queueTime;                    /* How much time is queued up? (can be very inaccurate) */
  2295.     long                            reserved[3];
  2296. };
  2297. typedef struct TuneStatus TuneStatus;
  2298.  
  2299.  
  2300. enum {
  2301.     kStopTuneFade                = 1,                            /* do a quick, synchronous fadeout */
  2302.     kStopTuneSustain            = 2,                            /* don't silece notes */
  2303.     kStopTuneInstant            = 4,                            /* silence notes fast (else, decay them) */
  2304.     kStopTuneReleaseChannels    = 8                                /* afterwards, let the channels go */
  2305. };
  2306.  
  2307. enum {
  2308.     kTuneSelect                    = 3,
  2309.     kTuneSetHeaderSelect,
  2310.     kTuneGetTimeBaseSelect,
  2311.     kTuneSetTimeScaleSelect,
  2312.     kTuneGetTimeScaleSelect,
  2313.     kTuneGetIndexedNoteChannelSelect,
  2314.     kTuneDummy,
  2315.     kTuneQueueSelect,
  2316.     kTuneInstantSelect,
  2317.     kTuneGetStatusSelect,
  2318.     kTuneStopSelect,
  2319.     kTuneResumeSelect,
  2320.     kTuneFlushSelect,
  2321.     kTuneSetVolumeSelect,
  2322.     kTuneGetVolumeSelect,
  2323.     kTunePrerollSelect,
  2324.     kTuneUnrollSelect,
  2325.     kTuneLastSelector
  2326. };
  2327.  
  2328. typedef pascal void (*TuneCallBackProcPtr)(const TuneStatus *status, long refCon);
  2329. typedef pascal void (*TunePlayCallBackProcPtr)(unsigned long *event, long seed, long refCon);
  2330.  
  2331. #if GENERATINGCFM
  2332. typedef UniversalProcPtr TuneCallBackUPP;
  2333. typedef UniversalProcPtr TunePlayCallBackUPP;
  2334. #else
  2335. typedef TuneCallBackProcPtr TuneCallBackUPP;
  2336. typedef TunePlayCallBackProcPtr TunePlayCallBackUPP;
  2337. #endif
  2338.  
  2339. typedef ComponentInstance TunePlayer;
  2340.  
  2341.  
  2342. enum {
  2343.     kMaxTunePlayerParts            = 32,
  2344.     kTunePlayerType                = 'tune'
  2345. };
  2346.  
  2347. /*--------------------------
  2348.     Prototypes
  2349. --------------------------*/
  2350. extern pascal ComponentResult TuneSetHeader(TunePlayer tp, unsigned long *header)
  2351.  FIVEWORDINLINE(0x2F3C, 0x4, 0x4, 0x7000, 0xA82A);
  2352. extern pascal ComponentResult TuneGetTimeBase(TunePlayer tp, TimeBase *tb)
  2353.  FIVEWORDINLINE(0x2F3C, 0x4, 0x5, 0x7000, 0xA82A);
  2354. extern pascal ComponentResult TuneSetTimeScale(TunePlayer tp, TimeScale scale)
  2355.  FIVEWORDINLINE(0x2F3C, 0x4, 0x6, 0x7000, 0xA82A);
  2356. extern pascal ComponentResult TuneGetTimeScale(TunePlayer tp, TimeScale *scale)
  2357.  FIVEWORDINLINE(0x2F3C, 0x4, 0x7, 0x7000, 0xA82A);
  2358. extern pascal ComponentResult TuneGetIndexedNoteChannel(TunePlayer tp, long i, NoteChannel *nc)
  2359.  FIVEWORDINLINE(0x2F3C, 0x8, 0x8, 0x7000, 0xA82A);
  2360. /* Values for when to start. */
  2361.  
  2362. enum {
  2363.     kTuneStartNow                = 1,                            /* start after buffer is implied */
  2364.     kTuneDontClipNotes            = 2,                            /* allow notes to finish their durations outside sample */
  2365.     kTuneExcludeEdgeNotes        = 4,                            /* dont play notes that start at end of tune */
  2366.     kTuneStartNewMaster            = 16384
  2367. };
  2368.  
  2369. extern pascal ComponentResult TuneQueue(TunePlayer tp, unsigned long *tune, Fixed tuneRate, unsigned long tuneStartPosition, unsigned long tuneStopPosition, unsigned long queueFlags, TuneCallBackUPP callBackProc, long refCon)
  2370.  FIVEWORDINLINE(0x2F3C, 0x1C, 0xA, 0x7000, 0xA82A);
  2371. extern pascal ComponentResult TuneInstant(TunePlayer tp, unsigned long *tune, long tunePosition)
  2372.  FIVEWORDINLINE(0x2F3C, 0x8, 0xB, 0x7000, 0xA82A);
  2373. extern pascal ComponentResult TuneGetStatus(TunePlayer tp, TuneStatus *status)
  2374.  FIVEWORDINLINE(0x2F3C, 0x4, 0xC, 0x7000, 0xA82A);
  2375. /* Values for when to start. */
  2376.  
  2377. enum {
  2378.     kStopSustain                = 1,                            /* Leaves notes playing, not silent */
  2379.     kStopFadeout                = 2                                /* Does a synchronous fade-out */
  2380. };
  2381.  
  2382. extern pascal ComponentResult TuneStop(TunePlayer tp, long stopFlags)
  2383.  FIVEWORDINLINE(0x2F3C, 0x4, 0xD, 0x7000, 0xA82A);
  2384. extern pascal ComponentResult TuneResume(TunePlayer tp)
  2385.  FIVEWORDINLINE(0x2F3C, 0, 0xE, 0x7000, 0xA82A);
  2386. extern pascal ComponentResult TuneFlush(TunePlayer tp)
  2387.  FIVEWORDINLINE(0x2F3C, 0, 0xF, 0x7000, 0xA82A);
  2388. extern pascal ComponentResult TuneSetVolume(TunePlayer tp, Fixed volume)
  2389.  FIVEWORDINLINE(0x2F3C, 0x4, 0x10, 0x7000, 0xA82A);
  2390. extern pascal ComponentResult TuneGetVolume(TunePlayer tp)
  2391.  FIVEWORDINLINE(0x2F3C, 0, 0x11, 0x7000, 0xA82A);
  2392. extern pascal ComponentResult TunePreroll(TunePlayer tp)
  2393.  FIVEWORDINLINE(0x2F3C, 0, 0x12, 0x7000, 0xA82A);
  2394. extern pascal ComponentResult TuneUnroll(TunePlayer tp)
  2395.  FIVEWORDINLINE(0x2F3C, 0, 0x13, 0x7000, 0xA82A);
  2396. typedef unsigned long MusicOpWord, *MusicOpWordPtr;
  2397.  
  2398. /*     QuickTime Music Track Event Formats:
  2399.  
  2400.     At this time, QuickTime music tracks support 5 different event types -- REST events,
  2401.     short NOTE events, short CONTROL events, short GENERAL events, Long NOTE events, 
  2402.     long CONTROL events, and variable GENERAL events.
  2403.  
  2404.         • REST Event (4 bytes/event):
  2405.     
  2406.             (0 0 0) (5-bit UNUSED) (24-bit Rest Duration)
  2407.         
  2408.         • Short NOTE Events (4 bytes/event):
  2409.     
  2410.             (0 0 1) (5-bit Instrument) (6-bit Pitch) (7-bit Volume) (11-bit Duration)
  2411.         
  2412.             where:    Pitch is offset by 32 (Actual pitch = pitch field + 32)
  2413.  
  2414.         • Short CONTROL Events (4 bytes/event):
  2415.     
  2416.             (0 1 0) (5-bit Instrument) (8-bit Controller) (1-bit UNUSED) (1-bit Sign) (7-bit MSB) (7-bit LSB)
  2417.                                                                          ( or 15-bit Signed Value)
  2418.         • Short GENERAL Event (4 bytes/event):
  2419.     
  2420.             (0 1 1) (1-bit UNUSED) (12-bit Sub-Type) (16-bit Value)
  2421.     
  2422.         • Long NOTE Events (8 bytes/event):
  2423.     
  2424.             (1 0 0 1) (12-bit Instrument) (1-bit UNUSED) (7-bit Pitch) (1-bit UNUSED) (7-bit Volume)
  2425.             (1 0) (8-bit UNUSED) (22-bit Duration)
  2426.         
  2427.         • Long CONTROL Event (8 bytes/event):
  2428.         
  2429.             (1 0 1 0) (12-bit Instrument) (16-bit Value MSB) 
  2430.             (1 0) (14-bit Controller) (16-bit Value LSB)
  2431.     
  2432.         • Long KNOB Event (8 bytes/event):
  2433.     
  2434.             (1 0 1 1) (12-bit Sub-Type) (16-bit Value MSB)
  2435.             (1 0) (14-bit KNOB) (16-bit Value LSB)
  2436.     
  2437.         • Variable GENERAL Length Events (N bytes/event):
  2438.     
  2439.             (1 1 1 1) (12-bit Sub-Type) (16-bit Length)
  2440.                 :
  2441.             (32-bit Data values)
  2442.                 :
  2443.             (1 1) (14-bit UNUSED) (16-bit Length)
  2444.     
  2445.             where:    Length field is the number of LONG words in the record.
  2446.                     Lengths include the first and last long words (Minimum length = 2)
  2447.                 
  2448.     The following event type values have not been used yet and are reserved for 
  2449.     future expansion:
  2450.         
  2451.         • (1 0 0 0)        (8 bytes/event)
  2452.         • (1 1 0 0)        (N bytes/event)
  2453.         • (1 1 0 1)        (N bytes/event)
  2454.         • (1 1 1 0)        (N bytes/event)
  2455.         
  2456.     For all events, the following generalizations apply:
  2457.     
  2458.         -    All duration values are specified in Millisecond units.
  2459.         -     Pitch values are intended to map directly to the MIDI key numbers.
  2460.         -    Controllers from 0 to 127 correspond to the standard MIDI controllers.
  2461.             Controllers greater than 127 correspond to other controls (i.e., Pitch Bend, 
  2462.             Key Pressure, and Channel Pressure).    
  2463. */
  2464. /* Defines for the implemented music event data fields*/
  2465.  
  2466. enum {
  2467.     kRestEventType                = 0x0L,                            /* lower 3-bits */
  2468.     kNoteEventType                = 0x1L,                            /* lower 3-bits */
  2469.     kControlEventType            = 0x2L,                            /* lower 3-bits */
  2470.     kMarkerEventType            = 0x3L,                            /* lower 3-bits */
  2471.     kUndefined1EventType        = 0x8L,                            /* 4-bits */
  2472.     kXNoteEventType                = 0x9L,                            /* 4-bits */
  2473.     kXControlEventType            = 0xAL,                            /* 4-bits */
  2474.     kKnobEventType                = 0xBL,                            /* 4-bits */
  2475.     kUndefined2EventType        = 0xCL,                            /* 4-bits */
  2476.     kUndefined3EventType        = 0xDL,                            /* 4-bits */
  2477.     kUndefined4EventType        = 0xEL,                            /* 4-bits */
  2478.     kGeneralEventType            = 0xFL,                            /* 4-bits */
  2479.     kXEventLengthBits            = 0x2L,                            /* 2 bits: indicates 8-byte event record */
  2480.     kGeneralEventLengthBits        = 0x3L,                            /* 2 bits: indicates variable length event record */
  2481.     kEventLen                    = 1L,                            /* length of events in long words */
  2482.     kXEventLen                    = 2L,
  2483.     kRestEventLen                = kEventLen,                    /* length of events in long words */
  2484.     kNoteEventLen                = kEventLen,
  2485.     kControlEventLen            = kEventLen,
  2486.     kMarkerEventLen                = kEventLen,
  2487.     kXNoteEventLen                = kXEventLen,
  2488.     kXControlEventLen            = kXEventLen,
  2489.     kGeneralEventLen            = kXEventLen,                    /* 2 or more, however */
  2490. /* Universal Event Defines*/
  2491.     kEventLengthFieldPos        = 30,                            /* by looking at these two bits of the 1st or last word              */
  2492.     kEventLengthFieldWidth        = 2,                            /* of an event you can determine the event length                      */
  2493. /* length field: 0 & 1 => 1 long; 2 => 2 longs; 3 => variable length */
  2494.     kEventTypeFieldPos            = 29,                            /* event type field for short events */
  2495.     kEventTypeFieldWidth        = 3,                            /* short type is 3 bits */
  2496.     kXEventTypeFieldPos            = 28,                            /* event type field for extended events */
  2497.     kXEventTypeFieldWidth        = 4,                            /* extended type is 4 bits */
  2498.     kEventInstrumentFieldPos    = 24,
  2499.     kEventInstrumentFieldWidth    = 5,
  2500.     kXEventInstrumentFieldPos    = 16,                            /* in the 1st long word */
  2501.     kXEventInstrumentFieldWidth    = 12,
  2502. /* Rest Events*/
  2503.     kRestEventDurationFieldPos    = 0,
  2504.     kRestEventDurationFieldWidth = 24,
  2505.     kRestEventDurationMax        = ((1L << kRestEventDurationFieldWidth) - 1),
  2506. /* Note Events*/
  2507.     kNoteEventPitchFieldPos        = 18,
  2508.     kNoteEventPitchFieldWidth    = 6,
  2509.     kNoteEventPitchOffset        = 32,                            /* add to value in pitch field to get actual pitch */
  2510.     kNoteEventVolumeFieldPos    = 11,
  2511.     kNoteEventVolumeFieldWidth    = 7,
  2512.     kNoteEventVolumeOffset        = 0,                            /* add to value in volume field to get actual volume */
  2513.     kNoteEventDurationFieldPos    = 0,
  2514.     kNoteEventDurationFieldWidth = 11,
  2515.     kNoteEventDurationMax        = ((1L << kNoteEventDurationFieldWidth) - 1),
  2516.     kXNoteEventPitchFieldPos    = 0,                            /* in the 1st long word */
  2517.     kXNoteEventPitchFieldWidth    = 16,
  2518.     kXNoteEventDurationFieldPos    = 0,                            /* in the 2nd long word */
  2519.     kXNoteEventDurationFieldWidth = 22,
  2520.     kXNoteEventDurationMax        = ((1L << kXNoteEventDurationFieldWidth) - 1),
  2521.     kXNoteEventVolumeFieldPos    = 22,                            /* in the 2nd long word */
  2522.     kXNoteEventVolumeFieldWidth    = 7,
  2523. /* Control Events*/
  2524.     kControlEventControllerFieldPos = 16,
  2525.     kControlEventControllerFieldWidth = 8,
  2526.     kControlEventValueFieldPos    = 0,
  2527.     kControlEventValueFieldWidth = 16,
  2528.     kXControlEventControllerFieldPos = 0,                        /* in the 2nd long word */
  2529.     kXControlEventControllerFieldWidth = 16,
  2530.     kXControlEventValueFieldPos    = 0,                            /* in the 1st long word */
  2531.     kXControlEventValueFieldWidth = 16,
  2532. /* Knob Events*/
  2533.     kKnobEventValueHighFieldPos    = 0,                            /* 1st long word */
  2534.     kKnobEventValueHighFieldWidth = 16,
  2535.     kKnobEventKnobFieldPos        = 16,                            /* 2nd long word */
  2536.     kKnobEventKnobFieldWidth    = 14,
  2537.     kKnobEventValueLowFieldPos    = 0,                            /* 2nd long word */
  2538.     kKnobEventValueLowFieldWidth = 16,
  2539. /* Marker Events*/
  2540.     kMarkerEventSubtypeFieldPos    = 16,
  2541.     kMarkerEventSubtypeFieldWidth = 8,
  2542.     kMarkerEventValueFieldPos    = 0,
  2543.     kMarkerEventValueFieldWidth    = 16,
  2544. /* General Events*/
  2545.     kGeneralEventSubtypeFieldPos = 16,                            /* in the last long word */
  2546.     kGeneralEventSubtypeFieldWidth = 14,
  2547.     kGeneralEventLengthFieldPos    = 0,                            /* in the 1st & last long words */
  2548.     kGeneralEventLengthFieldWidth = 16
  2549. };
  2550.  
  2551. #define MASK(bitWidth) ((1L << (bitWidth)) - 1)
  2552. #define EXT(val, pos, width) (((val) >> (pos)) & MASK(width))
  2553. #define _EventLength(x) ((EXT(x, kEventLengthFieldPos,  \
  2554.     kEventLengthFieldWidth) < 2) ? 1 :  \
  2555.     ((EXT(x, kEventLengthFieldPos, kEventLengthFieldWidth) == 2) ? 2 :  \
  2556.     EXT(x, kGeneralEventLengthFieldPos, kGeneralEventLengthFieldWidth)))
  2557. #define _EventType(x) ((EXT(x, kEventTypeFieldPos, kEventTypeFieldWidth) > 3) ? EXT(x, kXEventTypeFieldPos, kXEventTypeFieldWidth) : EXT(x, kEventTypeFieldPos, kEventTypeFieldWidth))
  2558. #define _RestDuration(x) (EXT(x, kRestEventDurationFieldPos, kRestEventDurationFieldWidth))
  2559. #define _Instrument(x) (EXT(x, kEventInstrumentFieldPos, kEventInstrumentFieldWidth))
  2560. #define _XInstrument(m, l) (EXT(m, kXEventInstrumentFieldPos, kXEventInstrumentFieldWidth))
  2561. #define _NotePitch(x) (EXT(x, kNoteEventPitchFieldPos, kNoteEventPitchFieldWidth) + kNoteEventPitchOffset)
  2562. #define _NoteVolume(x) (EXT(x, kNoteEventVolumeFieldPos, kNoteEventVolumeFieldWidth) + kNoteEventVolumeOffset)
  2563. #define _NoteDuration(x) (EXT(x, kNoteEventDurationFieldPos, kNoteEventDurationFieldWidth))
  2564. #define _NoteVelocity _NoteVolume
  2565. #define _XNotePitch(m, l) (EXT(m, kXNoteEventPitchFieldPos, kXNoteEventPitchFieldWidth))
  2566. #define _XNoteVolume(m, l) (EXT(l, kXNoteEventVolumeFieldPos, kXNoteEventVolumeFieldWidth))
  2567. #define _XNoteDuration(m, l) (EXT(l, kXNoteEventDurationFieldPos, kXNoteEventDurationFieldWidth))
  2568. #define _XNoteVelocity _XNoteVolume
  2569. #define _ControlController(x) (EXT(x, kControlEventControllerFieldPos, kControlEventControllerFieldWidth))
  2570. #define _ControlValue(x) (EXT(x, kControlEventValueFieldPos, kControlEventValueFieldWidth))
  2571. #define _XControlController(m, l) (EXT(m, kXControlEventControllerFieldPos, kXControlEventControllerFieldWidth))
  2572. #define _XControlValue(m, l) (EXT(m, kXControlEventValueFieldPos, kXControlEventValueFieldWidth))
  2573. #define _MarkerSubtype(x) (EXT(x,kMarkerEventSubtypeFieldPos,kMarkerEventSubtypeFieldWidth))
  2574. #define _MarkerValue(x) (EXT(x, kMarkerEventValueFieldPos, kMarkerEventValueFieldWidth))
  2575. #define _KnobValue(m, l) ((EXT(m,kKnobEventValueHighFieldPos,kKnobEventValueHighFieldWidth) << 16)     \
  2576.     | (EXT(l,kKnobEventValueLowFieldPos,kKnobEventValueLowFieldWidth)))
  2577. #define _KnobKnob(m, l) (EXT(l,kKnobEventKnobFieldPos,kKnobEventKnobFieldWidth))
  2578. #define _GeneralSubtype(m, l) (EXT(l,kGeneralEventSubtypeFieldPos,kGeneralEventSubtypeFieldWidth))
  2579. #define _GeneralLength(m, l) (EXT(m,kGeneralEventLengthFieldPos,kGeneralEventLengthFieldWidth))
  2580. #define _StuffRestEvent(x, duration)  \
  2581.     x = (kRestEventType << kEventTypeFieldPos)     \
  2582.     |    ((long)(duration) << kRestEventDurationFieldPos)
  2583. #define _StuffNoteEvent(x, instrument, pitch, volume, duration)  \
  2584.     x = (kNoteEventType << kEventTypeFieldPos)     \
  2585.     | ((long)(instrument) << kEventInstrumentFieldPos)     \
  2586.     |    (((long)(pitch) - kNoteEventPitchOffset) << kNoteEventPitchFieldPos)     \
  2587.     |    (((long)(volume) - kNoteEventVolumeOffset) << kNoteEventVolumeFieldPos)     \
  2588.     |    ((long)(duration) << kNoteEventDurationFieldPos)
  2589. #define _StuffControlEvent(x, instrument, control, value)  \
  2590.     x = (kControlEventType << kEventTypeFieldPos)     \
  2591.     | ((long)(instrument) << kEventInstrumentFieldPos)     \
  2592.     |    ((long)(control) << kControlEventControllerFieldPos)     \
  2593.     |    ((long)((value) & MASK(kControlEventValueFieldWidth)) << kControlEventValueFieldPos)
  2594. #define _StuffXNoteEvent(w1, w2, instrument, pitch, volume, duration)  \
  2595.     w1 = (kXNoteEventType << kXEventTypeFieldPos)     \
  2596.     |    ((long)(instrument) << kXEventInstrumentFieldPos)     \
  2597.     |    ((long)(pitch) << kXNoteEventPitchFieldPos),     \
  2598.     w2 =    (kXEventLengthBits << kEventLengthFieldPos)     \
  2599.     |    ((long)(duration) << kXNoteEventDurationFieldPos)     \
  2600.     |    ((long)(volume) << kXNoteEventVolumeFieldPos)    
  2601. #define _StuffXControlEvent(w1, w2, instrument, control, value)  \
  2602.     w1 = (kXControlEventType << kXEventTypeFieldPos)     \
  2603.     |    ((long)(instrument) << kXEventInstrumentFieldPos)     \
  2604.     |    ((long)((value) & MASK(kXControlEventValueFieldWidth)) << kXControlEventValueFieldPos),  \
  2605.     w2 =    (kXEventLengthBits << kEventLengthFieldPos)     \
  2606.     |    ((long)(control) << kXControlEventControllerFieldPos)
  2607. #define _StuffKnobEvent(w1, w2, instrument, knob, value)  \
  2608.     w1 =    (kKnobEventType << kXEventTypeFieldPos)     \
  2609.     |    ((long)(instrument) << kXEventInstrumentFieldPos)     \
  2610.     |    ((long)(value >> 16) << kKnobEventValueLowFieldPos),     \
  2611.     w2 =    (kXEventLengthBits << kEventLengthFieldPos)     \
  2612.     |    ((long)(knob) << kKnobEventKnobFieldPos)     \
  2613.     |    ((long)(value & 0xFFFF) << kKnobEventValueLowFieldPos)
  2614. #define _StuffGeneralEvent(w1, w2, instrument, subType, length)  \
  2615.     w1 =    (kGeneralEventType << kXEventTypeFieldPos)     \
  2616.     |    ((long)(instrument) << kXEventInstrumentFieldPos)     \
  2617.     |    ((long)(length) << kGeneralEventLengthFieldPos),     \
  2618.     w2 =    (kGeneralEventLengthBits << kEventLengthFieldPos)     \
  2619.     |    ((long)(subType) << kGeneralEventSubtypeFieldPos)     \
  2620.     |    ((long)(length) << kGeneralEventLengthFieldPos)
  2621. enum {
  2622.     kGeneralEventNoteRequest    = 1,                            /* Encapsulates NoteRequest data structure */
  2623.     kGeneralEventInstrument        = 2,                            /* Encapsulates poly, typical poly, followed by InstrumentData record */
  2624.     kGeneralEventFlatInstrument    = 3,                            /* Encapsulates poly, typical poly, followed by FlatInstrument record */
  2625.     kGeneralEventPartName        = 4,                            /* Brackets 2 longs follwed by a pascal string (padded to long alignment) */
  2626.     kGeneralEventPartKey        = 5                                /* Brackets 2 longs */
  2627. };
  2628.  
  2629. enum {
  2630.     TCSourceRefNameType            = 'name'
  2631. };
  2632.  
  2633. enum {
  2634.     tcDropFrame                    = 1 << 0,
  2635.     tc24HourMax                    = 1 << 1,
  2636.     tcNegTimesOK                = 1 << 2,
  2637.     tcCounter                    = 1 << 3
  2638. };
  2639.  
  2640. struct TimeCodeDef {
  2641.     long                            flags;                        /* drop-frame, etc.*/
  2642.     TimeScale                        fTimeScale;                    /* time scale of frameDuration (eg. 2997)*/
  2643.     TimeValue                        frameDuration;                /* duration of each frame (eg. 100)*/
  2644.     UInt8                            numFrames;                    /* number of frames per second for timecode (eg. 30)*/
  2645. /* number of frames per tick for counter mode*/
  2646.     UInt8                            padding;                    /* unused padding byte */
  2647. };
  2648. typedef struct TimeCodeDef TimeCodeDef;
  2649.  
  2650.  
  2651. enum {
  2652.     tctNegFlag                    = 0x80                            /* negative bit is in minutes*/
  2653. };
  2654.  
  2655. struct TimeCodeTime {
  2656.     UInt8                            hours;
  2657.     UInt8                            minutes;
  2658.     UInt8                            seconds;
  2659.     UInt8                            frames;
  2660. };
  2661. typedef struct TimeCodeTime TimeCodeTime;
  2662.  
  2663. struct TimeCodeCounter {
  2664.     long                            counter;
  2665. };
  2666. typedef struct TimeCodeCounter TimeCodeCounter;
  2667.  
  2668. union TimeCodeRecord {
  2669.     TimeCodeTime                    t;
  2670.     TimeCodeCounter                    c;
  2671. };
  2672. typedef union TimeCodeRecord TimeCodeRecord;
  2673.  
  2674. struct TimeCodeDescription {
  2675. /* standard sample description header*/
  2676.     long                            descSize;
  2677.     long                            dataFormat;
  2678.     long                            resvd1;
  2679.     short                            resvd2;
  2680.     short                            dataRefIndex;
  2681. /* timecode specific stuff*/
  2682.     long                            flags;
  2683.     TimeCodeDef                        timeCodeDef;
  2684.     long                            srcRef[1];
  2685. };
  2686. typedef struct TimeCodeDescription TimeCodeDescription;
  2687.  
  2688. typedef TimeCodeDescription *TimeCodeDescriptionPtr;
  2689.  
  2690. typedef TimeCodeDescriptionPtr *TimeCodeDescriptionHandle;
  2691.  
  2692.  
  2693. enum {
  2694.     tcdfShowTimeCode            = 1 << 0
  2695. };
  2696.  
  2697. enum {
  2698.     kTCGetCurrentTimeCodeSelect    = 257,
  2699.     kTCGetTimeCodeAtTimeSelect,
  2700.     kTCTimeCodeToStringSelect,
  2701.     kTCTimeCodeToFrameNumberSelect,
  2702.     kTCFrameNumberToTimeCodeSelect,
  2703.     kTCGetSourceRefSelect,
  2704.     kTCSetSourceRefSelect,
  2705.     kTCSetTimeCodeFlagsSelect,
  2706.     kTCGetTimeCodeFlagsSelect,
  2707.     kTCSetDisplayOptionsSelect,
  2708.     kTCGetDisplayOptionsSelect
  2709. };
  2710.  
  2711. struct TCTextOptions {
  2712.     short                            txFont;
  2713.     short                            txFace;
  2714.     short                            txSize;
  2715.     RGBColor                        foreColor;
  2716.     RGBColor                        backColor;
  2717. };
  2718. typedef struct TCTextOptions TCTextOptions;
  2719.  
  2720. typedef TCTextOptions *TCTextOptionsPtr;
  2721.  
  2722. extern pascal HandlerError TCGetCurrentTimeCode(MediaHandler mh, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, UserData *srcRefH)
  2723.  FIVEWORDINLINE(0x2F3C, 0x10, 0x101, 0x7000, 0xA82A);
  2724. extern pascal HandlerError TCGetTimeCodeAtTime(MediaHandler mh, TimeValue mediaTime, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcdata, UserData *srcRefH)
  2725.  FIVEWORDINLINE(0x2F3C, 0x14, 0x102, 0x7000, 0xA82A);
  2726. extern pascal HandlerError TCTimeCodeToFrameNumber(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, long *frameNumber)
  2727.  FIVEWORDINLINE(0x2F3C, 0xC, 0x104, 0x7000, 0xA82A);
  2728. extern pascal HandlerError TCFrameNumberToTimeCode(MediaHandler mh, long frameNumber, TimeCodeDef *tcdef, TimeCodeRecord *tcrec)
  2729.  FIVEWORDINLINE(0x2F3C, 0xC, 0x105, 0x7000, 0xA82A);
  2730. extern pascal HandlerError TCTimeCodeToString(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, StringPtr tcStr)
  2731.  FIVEWORDINLINE(0x2F3C, 0xC, 0x103, 0x7000, 0xA82A);
  2732. extern pascal HandlerError TCGetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData *srefH)
  2733.  FIVEWORDINLINE(0x2F3C, 0x8, 0x106, 0x7000, 0xA82A);
  2734. extern pascal HandlerError TCSetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData srefH)
  2735.  FIVEWORDINLINE(0x2F3C, 0x8, 0x107, 0x7000, 0xA82A);
  2736. extern pascal HandlerError TCSetTimeCodeFlags(MediaHandler mh, long flags, long flagsMask)
  2737.  FIVEWORDINLINE(0x2F3C, 0x8, 0x108, 0x7000, 0xA82A);
  2738. extern pascal HandlerError TCGetTimeCodeFlags(MediaHandler mh, long *flags)
  2739.  FIVEWORDINLINE(0x2F3C, 0x4, 0x109, 0x7000, 0xA82A);
  2740. extern pascal HandlerError TCSetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  2741.  FIVEWORDINLINE(0x2F3C, 0x4, 0x10A, 0x7000, 0xA82A);
  2742. extern pascal HandlerError TCGetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  2743.  FIVEWORDINLINE(0x2F3C, 0x4, 0x10B, 0x7000, 0xA82A);
  2744. /* UPP call backs */
  2745.  
  2746. #if GENERATINGCFM
  2747. #else
  2748. #endif
  2749.  
  2750. enum {
  2751.     uppSGDataProcInfo = kPascalStackBased
  2752.          | RESULT_SIZE(SIZE_CODE(sizeof(OSErr)))
  2753.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2754.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(Ptr)))
  2755.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(long)))
  2756.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(long*)))
  2757.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(long)))
  2758.          | STACK_ROUTINE_PARAMETER(6, SIZE_CODE(sizeof(TimeValue)))
  2759.          | STACK_ROUTINE_PARAMETER(7, SIZE_CODE(sizeof(short)))
  2760.          | STACK_ROUTINE_PARAMETER(8, SIZE_CODE(sizeof(long))),
  2761.     uppSGModalFilterProcInfo = kPascalStackBased
  2762.          | RESULT_SIZE(SIZE_CODE(sizeof(Boolean)))
  2763.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(DialogPtr)))
  2764.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(EventRecord*)))
  2765.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(short*)))
  2766.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(long))),
  2767.     uppSGGrabProcInfo = kPascalStackBased
  2768.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2769.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2770.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2771.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(long))),
  2772.     uppSGGrabCompleteProcInfo = kPascalStackBased
  2773.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2774.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2775.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2776.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(Boolean*)))
  2777.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(long))),
  2778.     uppSGDisplayProcInfo = kPascalStackBased
  2779.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2780.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2781.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2782.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(MatrixRecord*)))
  2783.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(RgnHandle)))
  2784.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(long))),
  2785.     uppSGCompressProcInfo = kPascalStackBased
  2786.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2787.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2788.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2789.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(long))),
  2790.     uppSGCompressCompleteProcInfo = kPascalStackBased
  2791.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2792.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2793.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2794.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(Boolean*)))
  2795.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(SGCompressInfo*)))
  2796.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(long))),
  2797.     uppSGAddFrameProcInfo = kPascalStackBased
  2798.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2799.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2800.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2801.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(TimeValue)))
  2802.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(TimeScale)))
  2803.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(SGCompressInfo*)))
  2804.          | STACK_ROUTINE_PARAMETER(6, SIZE_CODE(sizeof(long))),
  2805.     uppSGTransferFrameProcInfo = kPascalStackBased
  2806.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2807.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2808.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2809.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(MatrixRecord*)))
  2810.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(RgnHandle)))
  2811.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(long))),
  2812.     uppSGGrabCompressCompleteProcInfo = kPascalStackBased
  2813.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2814.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2815.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(Boolean*)))
  2816.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(SGCompressInfo*)))
  2817.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(TimeRecord*)))
  2818.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(long))),
  2819.     uppSGDisplayCompressProcInfo = kPascalStackBased
  2820.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2821.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(SGChannel)))
  2822.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(Ptr)))
  2823.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(ImageDescriptionHandle)))
  2824.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(MatrixRecord*)))
  2825.          | STACK_ROUTINE_PARAMETER(5, SIZE_CODE(sizeof(RgnHandle)))
  2826.          | STACK_ROUTINE_PARAMETER(6, SIZE_CODE(sizeof(long))),
  2827.     uppVdigIntProcInfo = kPascalStackBased
  2828.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(long)))
  2829.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(long))),
  2830.     uppSCModalFilterProcInfo = kPascalStackBased
  2831.          | RESULT_SIZE(SIZE_CODE(sizeof(Boolean)))
  2832.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(DialogPtr)))
  2833.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(EventRecord*)))
  2834.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(short*)))
  2835.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(long))),
  2836.     uppSCModalHookProcInfo = kPascalStackBased
  2837.          | RESULT_SIZE(SIZE_CODE(sizeof(short)))
  2838.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(DialogPtr)))
  2839.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(short)))
  2840.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(void*)))
  2841.          | STACK_ROUTINE_PARAMETER(4, SIZE_CODE(sizeof(long))),
  2842.     uppDataHCompletionProcInfo = kPascalStackBased
  2843.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(Ptr)))
  2844.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(long)))
  2845.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(OSErr))),
  2846.     uppMusicMIDISendProcInfo = kPascalStackBased
  2847.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2848.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(MusicComponent)))
  2849.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(long)))
  2850.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(MusicMIDIPacket*))),
  2851.     uppMusicMIDIReadHookProcInfo = kPascalStackBased
  2852.          | RESULT_SIZE(SIZE_CODE(sizeof(ComponentResult)))
  2853.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(MusicMIDIPacket*)))
  2854.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(long))),
  2855.     uppTuneCallBackProcInfo = kPascalStackBased
  2856.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(TuneStatus*)))
  2857.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(long))),
  2858.     uppTunePlayCallBackProcInfo = kPascalStackBased
  2859.          | STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(unsigned long*)))
  2860.          | STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(long)))
  2861.          | STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(long)))
  2862. };
  2863.  
  2864. #if GENERATINGCFM
  2865. #define NewSGDataProc(userRoutine)        \
  2866.         (SGDataUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGDataProcInfo, GetCurrentArchitecture())
  2867. #define NewSGModalFilterProc(userRoutine)        \
  2868.         (SGModalFilterUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGModalFilterProcInfo, GetCurrentArchitecture())
  2869. #define NewSGGrabProc(userRoutine)        \
  2870.         (SGGrabUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGGrabProcInfo, GetCurrentArchitecture())
  2871. #define NewSGGrabCompleteProc(userRoutine)        \
  2872.         (SGGrabCompleteUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGGrabCompleteProcInfo, GetCurrentArchitecture())
  2873. #define NewSGDisplayProc(userRoutine)        \
  2874.         (SGDisplayUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGDisplayProcInfo, GetCurrentArchitecture())
  2875. #define NewSGCompressProc(userRoutine)        \
  2876.         (SGCompressUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGCompressProcInfo, GetCurrentArchitecture())
  2877. #define NewSGCompressCompleteProc(userRoutine)        \
  2878.         (SGCompressCompleteUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGCompressCompleteProcInfo, GetCurrentArchitecture())
  2879. #define NewSGAddFrameProc(userRoutine)        \
  2880.         (SGAddFrameUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGAddFrameProcInfo, GetCurrentArchitecture())
  2881. #define NewSGTransferFrameProc(userRoutine)        \
  2882.         (SGTransferFrameUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGTransferFrameProcInfo, GetCurrentArchitecture())
  2883. #define NewSGGrabCompressCompleteProc(userRoutine)        \
  2884.         (SGGrabCompressCompleteUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGGrabCompressCompleteProcInfo, GetCurrentArchitecture())
  2885. #define NewSGDisplayCompressProc(userRoutine)        \
  2886.         (SGDisplayCompressUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSGDisplayCompressProcInfo, GetCurrentArchitecture())
  2887. #define NewVdigIntProc(userRoutine)        \
  2888.         (VdigIntUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppVdigIntProcInfo, GetCurrentArchitecture())
  2889. #define NewSCModalFilterProc(userRoutine)        \
  2890.         (SCModalFilterUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSCModalFilterProcInfo, GetCurrentArchitecture())
  2891. #define NewSCModalHookProc(userRoutine)        \
  2892.         (SCModalHookUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppSCModalHookProcInfo, GetCurrentArchitecture())
  2893. #define NewDataHCompletionProc(userRoutine)        \
  2894.         (DataHCompletionUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppDataHCompletionProcInfo, GetCurrentArchitecture())
  2895. #define NewMusicMIDISendProc(userRoutine)        \
  2896.         (MusicMIDISendUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppMusicMIDISendProcInfo, GetCurrentArchitecture())
  2897. #define NewMusicMIDIReadHookProc(userRoutine)        \
  2898.         (MusicMIDIReadHookUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppMusicMIDIReadHookProcInfo, GetCurrentArchitecture())
  2899. #define NewTuneCallBackProc(userRoutine)        \
  2900.         (TuneCallBackUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppTuneCallBackProcInfo, GetCurrentArchitecture())
  2901. #define NewTunePlayCallBackProc(userRoutine)        \
  2902.         (TunePlayCallBackUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppTunePlayCallBackProcInfo, GetCurrentArchitecture())
  2903. #else
  2904. #define NewSGDataProc(userRoutine)        \
  2905.         ((SGDataUPP) (userRoutine))
  2906. #define NewSGModalFilterProc(userRoutine)        \
  2907.         ((SGModalFilterUPP) (userRoutine))
  2908. #define NewSGGrabProc(userRoutine)        \
  2909.         ((SGGrabUPP) (userRoutine))
  2910. #define NewSGGrabCompleteProc(userRoutine)        \
  2911.         ((SGGrabCompleteUPP) (userRoutine))
  2912. #define NewSGDisplayProc(userRoutine)        \
  2913.         ((SGDisplayUPP) (userRoutine))
  2914. #define NewSGCompressProc(userRoutine)        \
  2915.         ((SGCompressUPP) (userRoutine))
  2916. #define NewSGCompressCompleteProc(userRoutine)        \
  2917.         ((SGCompressCompleteUPP) (userRoutine))
  2918. #define NewSGAddFrameProc(userRoutine)        \
  2919.         ((SGAddFrameUPP) (userRoutine))
  2920. #define NewSGTransferFrameProc(userRoutine)        \
  2921.         ((SGTransferFrameUPP) (userRoutine))
  2922. #define NewSGGrabCompressCompleteProc(userRoutine)        \
  2923.         ((SGGrabCompressCompleteUPP) (userRoutine))
  2924. #define NewSGDisplayCompressProc(userRoutine)        \
  2925.         ((SGDisplayCompressUPP) (userRoutine))
  2926. #define NewVdigIntProc(userRoutine)        \
  2927.         ((VdigIntUPP) (userRoutine))
  2928. #define NewSCModalFilterProc(userRoutine)        \
  2929.         ((SCModalFilterUPP) (userRoutine))
  2930. #define NewSCModalHookProc(userRoutine)        \
  2931.         ((SCModalHookUPP) (userRoutine))
  2932. #define NewDataHCompletionProc(userRoutine)        \
  2933.         ((DataHCompletionUPP) (userRoutine))
  2934. #define NewMusicMIDISendProc(userRoutine)        \
  2935.         ((MusicMIDISendUPP) (userRoutine))
  2936. #define NewMusicMIDIReadHookProc(userRoutine)        \
  2937.         ((MusicMIDIReadHookUPP) (userRoutine))
  2938. #define NewTuneCallBackProc(userRoutine)        \
  2939.         ((TuneCallBackUPP) (userRoutine))
  2940. #define NewTunePlayCallBackProc(userRoutine)        \
  2941.         ((TunePlayCallBackUPP) (userRoutine))
  2942. #endif
  2943.  
  2944. #if GENERATINGCFM
  2945. #define CallSGDataProc(userRoutine, c, p, len, offset, chRefCon, time, writeType, refCon)        \
  2946.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGDataProcInfo, (c), (p), (len), (offset), (chRefCon), (time), (writeType), (refCon))
  2947. #define CallSGModalFilterProc(userRoutine, theDialog, theEvent, itemHit, refCon)        \
  2948.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGModalFilterProcInfo, (theDialog), (theEvent), (itemHit), (refCon))
  2949. #define CallSGGrabProc(userRoutine, c, bufferNum, refCon)        \
  2950.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGGrabProcInfo, (c), (bufferNum), (refCon))
  2951. #define CallSGGrabCompleteProc(userRoutine, c, bufferNum, done, refCon)        \
  2952.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGGrabCompleteProcInfo, (c), (bufferNum), (done), (refCon))
  2953. #define CallSGDisplayProc(userRoutine, c, bufferNum, mp, clipRgn, refCon)        \
  2954.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGDisplayProcInfo, (c), (bufferNum), (mp), (clipRgn), (refCon))
  2955. #define CallSGCompressProc(userRoutine, c, bufferNum, refCon)        \
  2956.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGCompressProcInfo, (c), (bufferNum), (refCon))
  2957. #define CallSGCompressCompleteProc(userRoutine, c, bufferNum, done, ci, refCon)        \
  2958.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGCompressCompleteProcInfo, (c), (bufferNum), (done), (ci), (refCon))
  2959. #define CallSGAddFrameProc(userRoutine, c, bufferNum, atTime, scale, ci, refCon)        \
  2960.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGAddFrameProcInfo, (c), (bufferNum), (atTime), (scale), (ci), (refCon))
  2961. #define CallSGTransferFrameProc(userRoutine, c, bufferNum, mp, clipRgn, refCon)        \
  2962.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGTransferFrameProcInfo, (c), (bufferNum), (mp), (clipRgn), (refCon))
  2963. #define CallSGGrabCompressCompleteProc(userRoutine, c, done, ci, t, refCon)        \
  2964.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGGrabCompressCompleteProcInfo, (c), (done), (ci), (t), (refCon))
  2965. #define CallSGDisplayCompressProc(userRoutine, c, dataPtr, desc, mp, clipRgn, refCon)        \
  2966.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSGDisplayCompressProcInfo, (c), (dataPtr), (desc), (mp), (clipRgn), (refCon))
  2967. #define CallVdigIntProc(userRoutine, flags, refcon)        \
  2968.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppVdigIntProcInfo, (flags), (refcon))
  2969. #define CallSCModalFilterProc(userRoutine, theDialog, theEvent, itemHit, refcon)        \
  2970.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSCModalFilterProcInfo, (theDialog), (theEvent), (itemHit), (refcon))
  2971. #define CallSCModalHookProc(userRoutine, theDialog, itemHit, params, refcon)        \
  2972.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppSCModalHookProcInfo, (theDialog), (itemHit), (params), (refcon))
  2973. #define CallDataHCompletionProc(userRoutine, request, refcon, err)        \
  2974.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppDataHCompletionProcInfo, (request), (refcon), (err))
  2975. #define CallMusicMIDISendProc(userRoutine, self, refCon, mmp)        \
  2976.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppMusicMIDISendProcInfo, (self), (refCon), (mmp))
  2977. #define CallMusicMIDIReadHookProc(userRoutine, mp, myRefCon)        \
  2978.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppMusicMIDIReadHookProcInfo, (mp), (myRefCon))
  2979. #define CallTuneCallBackProc(userRoutine, status, refCon)        \
  2980.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppTuneCallBackProcInfo, (status), (refCon))
  2981. #define CallTunePlayCallBackProc(userRoutine, event, seed, refCon)        \
  2982.         CallUniversalProc((UniversalProcPtr)(userRoutine), uppTunePlayCallBackProcInfo, (event), (seed), (refCon))
  2983. #else
  2984. #define CallSGDataProc(userRoutine, c, p, len, offset, chRefCon, time, writeType, refCon)        \
  2985.         (*(userRoutine))((c), (p), (len), (offset), (chRefCon), (time), (writeType), (refCon))
  2986. #define CallSGModalFilterProc(userRoutine, theDialog, theEvent, itemHit, refCon)        \
  2987.         (*(userRoutine))((theDialog), (theEvent), (itemHit), (refCon))
  2988. #define CallSGGrabProc(userRoutine, c, bufferNum, refCon)        \
  2989.         (*(userRoutine))((c), (bufferNum), (refCon))
  2990. #define CallSGGrabCompleteProc(userRoutine, c, bufferNum, done, refCon)        \
  2991.         (*(userRoutine))((c), (bufferNum), (done), (refCon))
  2992. #define CallSGDisplayProc(userRoutine, c, bufferNum, mp, clipRgn, refCon)        \
  2993.         (*(userRoutine))((c), (bufferNum), (mp), (clipRgn), (refCon))
  2994. #define CallSGCompressProc(userRoutine, c, bufferNum, refCon)        \
  2995.         (*(userRoutine))((c), (bufferNum), (refCon))
  2996. #define CallSGCompressCompleteProc(userRoutine, c, bufferNum, done, ci, refCon)        \
  2997.         (*(userRoutine))((c), (bufferNum), (done), (ci), (refCon))
  2998. #define CallSGAddFrameProc(userRoutine, c, bufferNum, atTime, scale, ci, refCon)        \
  2999.         (*(userRoutine))((c), (bufferNum), (atTime), (scale), (ci), (refCon))
  3000. #define CallSGTransferFrameProc(userRoutine, c, bufferNum, mp, clipRgn, refCon)        \
  3001.         (*(userRoutine))((c), (bufferNum), (mp), (clipRgn), (refCon))
  3002. #define CallSGGrabCompressCompleteProc(userRoutine, c, done, ci, t, refCon)        \
  3003.         (*(userRoutine))((c), (done), (ci), (t), (refCon))
  3004. #define CallSGDisplayCompressProc(userRoutine, c, dataPtr, desc, mp, clipRgn, refCon)        \
  3005.         (*(userRoutine))((c), (dataPtr), (desc), (mp), (clipRgn), (refCon))
  3006. #define CallVdigIntProc(userRoutine, flags, refcon)        \
  3007.         (*(userRoutine))((flags), (refcon))
  3008. #define CallSCModalFilterProc(userRoutine, theDialog, theEvent, itemHit, refcon)        \
  3009.         (*(userRoutine))((theDialog), (theEvent), (itemHit), (refcon))
  3010. #define CallSCModalHookProc(userRoutine, theDialog, itemHit, params, refcon)        \
  3011.         (*(userRoutine))((theDialog), (itemHit), (params), (refcon))
  3012. #define CallDataHCompletionProc(userRoutine, request, refcon, err)        \
  3013.         (*(userRoutine))((request), (refcon), (err))
  3014. #define CallMusicMIDISendProc(userRoutine, self, refCon, mmp)        \
  3015.         (*(userRoutine))((self), (refCon), (mmp))
  3016. #define CallMusicMIDIReadHookProc(userRoutine, mp, myRefCon)        \
  3017.         (*(userRoutine))((mp), (myRefCon))
  3018. #define CallTuneCallBackProc(userRoutine, status, refCon)        \
  3019.         (*(userRoutine))((status), (refCon))
  3020. #define CallTunePlayCallBackProc(userRoutine, event, seed, refCon)        \
  3021.         (*(userRoutine))((event), (seed), (refCon))
  3022. #endif
  3023.  
  3024.  
  3025. #if PRAGMA_IMPORT_SUPPORTED
  3026. #pragma import off
  3027. #endif
  3028.  
  3029. #if PRAGMA_ALIGN_SUPPORTED
  3030. #pragma options align=reset
  3031. #endif
  3032.  
  3033. #ifdef __cplusplus
  3034. }
  3035. #endif
  3036.  
  3037. #endif /* __QUICKTIMECOMPONENTS__ */
  3038.